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EDIZIONE RISERVATA  Al  SOCI  NON  IIM I  VENDITA 
JF  BANCONI  POTEI  CORSO  FOGAZZAR0 174  VICENZA 


Dite  cosa  siete  capace  di  £«,1*6  e  a  costei  vi  dedicatè,. 
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GALLO  Catanzaro,  SCAGLIONE 
Palermo , SQU.TNTANI  Milano , SAR= 
TORI  Milano , THIELLA  Thiene,DOL 
METTA  Imperia,  CERULO  Benevento, 
ARRIGO  Firenze, COPPINI  Firenze, CAL= 
LEGAR I  Varese, CIMADORI  Padova, GALLI 
NA  Torino,  SBACCHIS  Palermo , MAZZERA 
IMA  Verona,  TADDEUCCI  Livorno,  PRIOD 


Torino,  DEBERN ARDIRI  Rama , BEN ATT I  Vero 


PERSIANO  Salerno1 
SOMMA  Bari, MARTIN 
Trento,  C ANERO  Cu= 
neo, FRAPPI  Arezzo, 

TOSCANINIVercelli, 

RUGGIU  Verona, SAR= 

NARI  Macerata, FERR 
Rovigo,  BORGOGELLI 
Pesaro, SULIS  Cagli 
BANDONE  Torino, MANCI 
NITaranto ,DEIORIO  Nap 
li, PASQUALI  Verona, 

PISI  Roma, MANCINELLI  Pe 
saro,  TESSANOLO  Padova, 

FREDUCCI  Roma, GUERRA  Bari, 

FATONE  Milano ,CAPOGI  Manto 

mo,CEOLA  Valdagno 
Firenze ,TORRETT 
Teramo,  BELLI  Mi 
lano,CARLUCCI  Bar 
CARTARIA  Milano, 

MARS IGL IES I  R  orna , 
PALTRINIER I  Bologna; 
LARICCIA  Bari, LUISE  Vene 
zia,  BARCA  Milano,  ZANGHI 


na, STROMILLO  Pistoia,  SCHIAVONE  Roma, 
MASS AC ESI  Roma,  ZAGA  Pavia, BIANCO  To 
rino ,DEGIORGIO  Merano, CALZA  Genova, 
LOMBARDO  Benevento,  TOMELLINI  Mila 
no,  CONSOXNI  Verona, ANGELONI  Roma 
FUCINI  Torino,  DEMONI  Padova, CO 
SIMO  Taranto,  MUSCARA  Mestre, 
ARDITO  Brindisi,  CaSTAGNARO 
Var e s e , PERL IN I  Pesaro,P IANTA = 
NIDA  Milano,  ZUPI  Napoli, LATEL 


LA  Bari,  NICOLETTI  Venezia,. 


TRAVAGLIMI  Roma, 


va, NEGRI 


BELGRADO 


GAnEM  Roma, 

FEI  Milano,  saMPELLEGRINT 
Bergamo , OSELLA  Torino,PIZ= 
ZOTTI  Milano, CRISTIANO  Ro= 
ma,  MALATO  Milano, VAGO 

Piacenza,  RIbSO  Imperia, 
GII  ICZZ 1  Arezzo,  CORTI 
,SARTO= 


Pavia, 
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Roma,  LAZZ AROTTO  Varese, 


LAN 
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ITERI  Imperia,  SARTORI .Verona, 

FERRARI  Cremona,  CARRER  Vicenzi 
CAVALLIN  Vicenza, BRIGNOLI  Vic< 
sa,  DANESE  Vicenza,  NIOLO  Vicenza," 
FASOLIN  Vicenza,  ATTANASIO  Vicenza, 

TOMASI  Vicenza,  MIOTTI  Vicenza,  FORESTAN  Vicenza, 
PADOVANI  Vicenza,  FARINA  Vicenza,  BONATO  Schio, 
CUTILLO  Vicenza,  FEDOLFI  Vicenza,  CARTA  Vicenza, 
FORNASA  Bassano  del  Grappa,  GIUFFRIDA  Arcugnano, 
SAVEGNAGO  Vicenza,  CUNICO  Caldogno , DITOVO  Rettorgole 
BURATTINI  Fabriano, CASELLA  Vicenza,  DERNO  Creazzo, 
ZANETTI  Vicenza,  COARO  Sovizzo, VIDALI  Vicenza, FRIGIO: 
LA  Vicenza,  GIANNELLO  Vicenza,R(DTELLI  Schio,  POMAR; 
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RI  Milano, BAR= 
BIERI  Bressanone 
CHINI  Trento, 
FIACCHI  Bolo= 
gna, CHIAPPI 
NI  Campo = 
basso , 


•  • , 
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Chiampo , MUNARI  Recoaro,  FENIANI  Vicenza, ZAMPIERI 


Bassano ,MATTAROLO  Breganze , SCOCCHI  Creazzo, GIOR= 
DANI  Camisano,  DAMEDA  Schio,  FRANZOI  Vicenza, 
MAGNABOSCO  Schio, 

MANTOVANI  Vicenza  •*•#* 

FRTZZIERO  Vicenza  ,  “ 

COLOMBO  Vicenza, GAL VA= 

NIN  Vicenza,  GATTO  SandrigoJ1 
VESCOVI  Vicenza, Salerno  Vicenni 
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MILANO  —  Nelle  fabbriche  del  mondo 
adustriallifif.-,  -  •  I  frèirdono  ogni  settima^ 
ia  dal  50  mila  al  centomila  posti  di 


al  50  mila  al  centomila  « 
X  Questo  continuo  collasso 


che  fa  sentire  1  suol  effetti  un  po’  dovun¬ 
que.  D  -responsabile»  principale  dell’l- 
narrestablle  stillicidio  sul  fronte  occupa- 
zionale  si  chiama  progresso.  La  rivolu¬ 
zione  elettronica,  la  vera  rivoluzione  de¬ 
gli  anni  Ottanta,  sta  sovvertendo  1  dlffl- 


caldo  del  «boom»  industriale.  Pino  a  che 
punto  computer  e  robot  prenderanno  il 
posto  della  manodopera,  fino  a  che  livel¬ 
lo  le  società  più  progredite  riusciranno  a 
«digerire»  macchine  sempre  più  soQ^g 
cate  èd  automatizzate?  Sono,  a 
terrogutivl  di  fondamentaU^gl^^ 
che  solo  adesso  ntaUsgp^^T-. 
eia  a  porsi.  \A  X 

^  c\v6  ^  c,ù?et-  °. 


chiamarsi  fuori.  E’  un  concetto  che  l’am¬ 
ministratore  delegato  dell’Olivettl,  Car¬ 
lo  De  Benedetti,  ha  ieri  ribadito  a  chiare 
lettere:  «Ci  troviamo  di  fronte  a  un  fatto¬ 
re  ‘orizzontale’  di  produzione  destinato 
ad  interessare  e  intervenire  in  tutti  1 
settori  industriali  e  non  industriali, 
orientandone  l’evoluzione:  affrontare  IL  < 
problema  dell’elettronica  ltaliana^^^^ 
fica,  quindi,  affrontare  l’InvMj^^^-  qe’ 
tendenza  per  una  ripresajiÉ^^lv  6 
ma  produttivo»,  ■  \V- 


sto  l’accento  sulla  necessità  di^jgnre 
un  organo  nazionale  deU^^^^ma- 
zlone  presso  il  mlnlst^^^^\  Vie  i 
provveda  al  riassjgg^^^  cò^x  __ 
municazionL^d^^  An  o\'  m 

n  nu^P^^O^0  V0I0  m 
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HUflOPé  ae-  fica,  quindi,  affrontare  l’invi*^^  .  qev~  _e*  1  ’rfJ'  q»  ■  m 

«gol  tendenza  per  una  rtpresiLdiip^A-  &  \c  a\e  ^  v  AV8^  .e  A  m 

periodo  piu  ma  produttivo»,  ^  -  \.V&  0  'J  .  s6  V  <e,  ^  \\  V*'  •  <\  m 

usciranno  a nX\  ^  ^ ^c°<p  ^ 
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^  «Vi 


l co^°  ^ 

lc  \\  a  ù  -e  &  \i2- C  <A.O  <\\-0  rt\G'  ^V^^Bnbiamenti  sociolo- 
™  ^  -.'A<v  »  vX  elettronica  è  In 

0/fartare,  Michele  Principe,  am¬ 
atore  delegato  delia  3t©t,  ha  po- 


r  ^^^l^segretano 

1  ' ‘V^^^Klana,  Vittorino 
^^dPffiche  parlato  del  con- 
nel  partito'  in  questa 


VSaS^5^ 


.^gpìi’pfiS-congresso.  Soffermandosi  sui 
É^portl  con  gli  altri  partiti  della  coali¬ 
zione,  Colombo  ha  aggiunto:  «Non  ci  fa 
paura  Craxi  e  11.  suo  socialismo:  lo  rite¬ 
niamo  con  noi  portatore  di  libertà  e 
democrazia.  Con  questo  socialismo  e  con 
il  polo  laico  vogliamo  confrontarci  e  col¬ 
laborare  nell'interesse  del  Paese». 
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L’insegnante  che  osserva,  consiglia  e 
pianifica 

Da  questa  rivoluzione  nel  ruolo  tra  l’uo¬ 
mo  e  la  macchina  si  può  ricavare  un  nuovo, 
importantissimo  ruolo  per  l’insegnante.  Il 
quale  diventa  un  osservatore  privilegiato 
delle  esperienze  del  bambino. 

E  soprattutto  diventa  un  consulente  del 
bambino:  colui  che  guida  e  dà  all’allievo  i 
consigli  sulla  maniera  più  saggia  di  orga¬ 
nizzarsi  e  di  procedere  per  raggiungere  i 
propri  obiettivi,  anziché  insegnare  tra¬ 
smettendo  in  modo  meccanico  le  indica¬ 
zioni  sulle  azioni  da  fare. 

Al  tempo  stesso  il  LOGO  è  un  mondo 
che  può  essere  esplorato  soltanto  un  pezzo 
per  volta.  L’insegnante  diventa  quindi  la 
persona  più  adatta  a  pianificare  questa 
esplorazione,  in  maniera  da  renderla  siste¬ 
matica  e  proficua  per  l’apprendrmento. 


due:  chiacchiere  e  poi... 


VIA  SULLA  TASTIERA 


Ho  iniziato  scambiando  qualche  informazione  con  un  inserzionista 
su  non  ricordo  quale  rivista.  Ci  scambiammo  notizie , informazioni 
qualche  programma.  Dopo  solo  un  mese  ricevevo  e  rispondevo  a  una 
lettera  al  giorno.  OGGI  SIETE  2400,  fra  non  molto  arriverete  a 
10.000,  un  intero  paese,  una  montagna  di  lettere  al  giorno  e  te= 
lefonate  di  ogni  genere  ogni  10  minuti  da  tutta  Italia. 

Ricordatevi  sempre  che  sono  solo!  Mi  devo  destreggiare  a  rispon= 
dervi  a  tutti  a  tempo  di  record,  scrivere  e  stampare  una  rivista 
che  sembra  abbia  oro  colato  dentro,  curare  la  messa  a  punto  di 
quasi  ormai  4000/5000  programmi* 

Una  iniziativa  la  mia  che  ha  fatto  ricredere  molti  pessimisti, 
nonostante  la  inarrestabile  valanga  di  computer  che  in  pochi  mesi 
è  andata  a  sommergere  l'intero  paese.  Un  fenomeno  esploso  in  ogni 
ambiente,  in  ogni  località  e  che  ha  investito  sopratutto  i  giova= 
ni ssimi . 

Nell'ottobre  scorso  nella  mia  rivista  iniziavo  con  un  titolo  che 
oggi  mi  da  pienamente  la  patente  di  chiaroveggente.  Il  titolo  era 
"non  so  cosa  succederà  entro  5  minuti".  E'  successo!  Nonostante 
il  "alto"  si  ignori  come  insegnamento  didattico  l'informatica. 

Questa  esplosione  e  questa  mancanza  di  informazioni  negli  ambienti 
che  invece  dovrebbero  fornirle  ha  fatto  si  che  mi  si  riversassero 
valanghe  di  lettere  nella  mia  tabaccheria  ormai  diventata  campo 
di  battaglia.  Curioso  e  insolito  avamposto  di  una  Bit-Rivoluzione. 

Ho  risposto  a  tutti,  ho  incoraggiato  tutti,  ho  cercato  nel  limite 
delle  mie  possibilità  di  insegnare  quanto  sapevo. 

Un  giornalista  sul  giornale  locale  mi  ha  denominato  "  apostolo  del 
Basic".  Non  poteva  farmi  cosa  più  gradita.  I  fili  che  vado  tessen= 
do  fra  di  voi  mettendovi  in  contatto  l'uno  con  l'altro  sono  ormai 
migliaia. Le  linee  di  programma  che  avete  fatto  per  me  per  poter 
scambiarle  con  altre  sono  ormai  milioni. 

Non  mi  sono  mai  sentito  così  gratificato.  Che  il  computer  mi  avrebbe 
permesso  di  dare  del  "tu"  a  migliaia  di  persone  che  non  ho  mai  cono= 
sciuto  e  incontrate  questo  non  lo  avrei  mai  imaginato.  Altro^  che 
macchine  disumanizzanti.  Non  ho  mai  avuto  tanti  amici  così.  !!!!! 

In  auesto  caleidoscopico  mosaico  non  mi  sfuggono  però  certi  feno¬ 
meni.  Su  quasi  2400  nomi  ve  ne  sono  solo  3  di  sesso  femminile. 

Cosa  mai  sta  succedendo? ! .Non  bastai , sempre  su  2400  ben  1800  sono 
del  Sud, con  programmi  molto  validi  nel  settore  scientifico , profes= 
s iona le , d ida t t ico .  Insomma  sembra  che  nel  Sud  ci  stiano  dando  den= 
tro  a  tutto  Bit.  (  Sociologi  avanti  !) 

Ultimamente  mi  sono  giunte  lettere  e  telefonate  quasi  drammatiche 
per  le  brutte  notizie  sulla  sorte  del  nostro  TI  99.  Qualche  ne= 
goziante  per  poter  far  fuori  certi  trabiccoli  che  aveva  in  casa 
andava  dicendo  che  la  Texas  era  fallita*  E  che  i  suoi  computer 
non  bisognava  acquistarli*  Povero  bottegaio  se  deve  ricorrere 
a  questi  mezzi! 

Carissimi  amici  la  Texas  ha  abbandonata  la  produzione  dell'Home 
solo  perchè  (  e  ce  ne  accorgiamo  anche  solo  due  tre  mesi  dopo 
anche  noi)  ormai  anche  i  ragazzini  hanno  bisogno  di  computer  da 
un  centinaio  di  K,  anche  i  ragazzini  sanno  che  viaggiare  con  i 
Floppy  è  un  altra  cosa,  che  non  basta  più  il  Basic  ma  serve  lo 
Assembler.  Noi  in  Italia  abbiamo  scoperto  il  computer  si  e  no 

sei  mesi  fa.  In  America  già  nel  '78  si  vendevano  nei  supermercati. 


In  Giappone  nei  colossali  Show  Room  l'età  media  dei  migliaia  di 
frequentatori  è  di  14  anni.  Bambini  di  12  anni  che  pestano  tasti 
di  macchine  di  2  Mega  di  Ram,  che  usano  dischi  da  20  ,  che  fanno 
funzionare  Plotter , Modem,  Stampanti  a  tutto  spiano. 

In  Italia  ?  2500  persone  si  sono  rivolti  a  un  povero  tabaccaio 

per  ricevere  e  sapere  qualcosa.  Istituzioni  Pubbliche?  Latitanti* 
Incoraggiamenti  ?  Meglio  tacere.  Non  basta  la  passione  cari  miei, 
l'esperienza  di  10  anni,  per  vendere  un  computer  a  un  ragazzino 
devi  possedere  la  licenza  13  cioè  "macchine  d'ufficio".  Solo 
quando  si  capirà  in  certi  ambienti  che  un  computer  non  è  una  mac= 
china  d'ufficio  l'informatica  in  Italia  decollerà. 

Nel  frattempo  ragazzi  facciamoci  le  ossa,  siamo  entrati  nello 
"ambiente"  e  abbiamo  incominciat®  a  capire  su  queste  utilitarie 
che  si  può  "imparare  a  pensare",  in  silenzio  e  in  un  luogo  insoli= 
to  ci  stiamo  preparando  ad  entrare  in  punta  di  piedi  in  questa  ri= 
voluzione  culturale  che  coinvolgerà  l'intero  sistema  dove  nessuno 
può  chiamarsi  fuori. 

Porse  tra  due  tre  anni  rideremo  di  come  abbiamo  iniziato.  La  tabac= 
cheria  sarà  un  triste  ricordo  da  una  parte,  dall'altra  vorrà  signi= 
ficare  pionierismo,  volontà,  intelligente  adattamento,  visto  il 
vuoto  che  ci  circondava. 

Con  il  Texas  TI  99  andiamo  avanti,  ma  già  in  embrione  c'è  la  mia 
nuova  grande  iniziativa.  Un  intero  ambiente  dedicato  ai  computer 
piccoli  e  grandi.  Nella  tabaccheria  non  ci  si  sta  più.  Inoltre  è 
diventato  un  laboratorio  (  fra  mille  difficoltà  burocratiche  e  in= 
vidie  di  certi  venditori  di  elettrodomestici). 

Qui  sono  confluite  tutte  le  vostre  7/8000  lettere,  tutti  i  vostri 
programmi,  le  vostre  numerose  visite  da  ogni  città  d ' Italia . (che 
piacere  incontrarsi  dopo  averci  scritto  e  telefonatoci  5/10  volte!) 

Nella  nuova  sede  si  continuerà  su  questa  strada,  rapporti  amichevoli 
risposte  ai  mille  quesiti,  scambio  di  programmi  piccoli  e  grandi, 
reciproco  travaso  di  esperienze  per  vivere  questa  bellissima  avven= 
tura . 

Mi  affiancherà  e  ne  prenderà  le  redini  (  dato  che  cari  miei  mi 
avete  messo  in  mille  imbarazzi  con  le  vostre  domande  tecniche 
non  sono  mica  il  mago  del  computer  io  !  ! )  il  carissimo  amico 
Dr  Grillo  Giuliano,  un  nome  molto  noto  negli'i  ambienti,  un  infa= 
ticabile  promotore  dell'informatica  in  Italia. 

Undici  anni  fa  (dico  11)  primo  dottore  in  Informatica  usciva  dalla 
Università  di  Pisa.  Questo,  significa  che  a  quell'epoca,  ma  anche 
solo  tre  mesi  fa,  molti  che  vendono  computer  oggi  si  e  no  vendeva3 
no  caffettiere,  tostapani,  frullatori. 

Se  non  ci  sono  ritardi  e  impedimenti  burocratici  e  amministrativi 
(  l'amministrazione  è  lenta  e  certe  volte  si  fa  molta  molta  diffi= 
coltà  a  far  capire  che  bisogna  fare  in  fretta  su  queste  cose  ) 
apriremo  nella  prima  Bomenica  di  Aprile. 

Siete  tutti  naturalmente  invitati  !  !  ! 

Non  ci  sarà  solo  Texas.,  ma  tutti  i  migliori  Computer  in  funzione 
da  1  K  fino  a  quelli  da  2000.  In  funzione  per  voi  e  i  vostri  ami= 
ci  per  capire,  vedere,  fare.  Come  abbiamo  fatto  fin'ora,  onde  cam= 
minare  speditamente  verso  questi  "  laboratori  della  conoscenza" 
che  sono  i  computer,  verso  questa  nuova  "  filosofia  educativa". 


a  presto 


In  concomitanza  con  l'inaugurazione  dello 
SHOW  ROOM  COMPUTER 


A  VICENZA 


COMPUTER 

Portici  CORSO  FOGAZZARO 

COMPUTER  E  SISTEMI  INFORMATICI 
PROFESSIONALI  •  AZIENDALI  •  DIDATTICI  •  HOBBY 


LAN  CER  A*  LR 


la  RASSEGNA  NAZIONALE 
LAVORI  SU  HOME/PERSONAL  COMPUTER 
(  Didattica,  Utility,  Giochi  ) 


Premi  per  oltre  5  milioni- offerti  da  Enti, 
Industrie,  Associazioni  e  Privati. 

Certificazione  dei  lavori  presentati  ed 
eventuale  commercializzazione  degli  stessi» 


Date»  regolamento  del  Concorso  verranno  inviate  a  tutti  i 
richiedenti.  Salvo  imprevisti,  la  manifestazione  culminerà 
nei  3  Stand  della  FRANCOMPUTER  alla 

(FIERA  DELL'*  ELETTRONICA  E  TELECOMUNICAZIONI 

di  VICENZA 

(  Novembre  1984  ) 

Fra  non  molto  sarete  10.000.  Soci  conto  su  di  voi 

tutti  per  farla  diventare  una  manifestazione  nazionale  di 
successo  con  enorme  importanza  culturale. 

Rimanete  tutti  in  contatto!  Sopratutto  i  sgobboni*  Avrò 
molto  bisogno  di  loro,  del  loro  aiuto»  dei  loro  suggerimenti, 
consigli,  dei  loro  lavori,  della  loro  fiducia.  | 

downloaded  from:  www.ti99iuc.it  | 

ENTI,  ASSOCIAZIONI,  INDUSTRIE  E  PRIVATI  CHE  VOGLIONO  PATR0CI= 
NARE  E  DARE  COLLABORAZIONE  ALLA  MANIFESTAZIONE  SI  FACCIANO  I 
AVANTI  CON  PREMI,  BORSE  DI  STUDIO,  APPOGGIO  MORALE.  GRAZIE!) 


io  NO  DA  LEGGER..  SI 


NO  Non  svendete  il  Vs  computer*  Trattatelo  bene.  E'  stato  il 
vostro  primo  computer.  Vi  do  inoltre  una  grande  bella 
notizia.  Forse  lo  potete  permutare  da  NOI  per  acquistare 
o  il  ^^OVOCom^uJ^^T^^^^o^^NUOV^Comput^IBf^  Sono 

due  merav^^T^5^T*7Tag^?^^T^^^77rTo^^z?ari^u^ra  di 

tutti  i  trabiccoli  in  giro.  E  come  al  solito  seguiremo 
molto  sia  1' hardware  che  il  software. 

NO  Non  ascoltate  le  chiacchiere  di  bottegai  senza  scrupoli.  A 
costoro  il  nuòvo  Texas  o  il  nuovo  IBM  non  arriveranno 
mai.  Non  basterà  infilare  la  presa  alla  corrente  e  farvi 
vedere  quattro  stupidaqgini  sul  video.  Voi  sarete  molto 
molto  più  avanti  di  loro  e  inoltre  avrete  le  idee  chiare. 

NO  Non  perdiamoci  di  vista*  Mantenete  i  contatti  con  il  Club. 

Ho  grosse  sorprese  per  tutti.  Fra  poco  saremo  10. 000. Una 
forza  non  indifferente  a  livello  di  potenziali  clienti. 

Una  unione  che  può  dettare  condizioni,  ottenere  agevola= 
zioni,  assistenza  e  servizio  di  postvendita  da  qualsiasi 
ditta. 

NO  Non  scriveteci  lettere  con  cento  domande.  Mettendole  da 

parte  per  rispondervi  con  più  calma  e  tempo, rischio  alla 
fine  di  non  farlo  o  di  farlo  con  grande  ritardo. 

NO  Non  inviatemi  già  i  soldi  della  rivista  N.4.  Questa  la  stam= 
però  quando  ho  materiale  e  tempo  disponibile.  Sarò  io  ad 
avvisarvi  quando  è  pronta. 

NO  Non  mettete  i  soldi  nelle  buste.  Fate  sempre  un  vaglia  o 
mettete  francobolli  di  grosso  taglio  (500/1000).  Inoltre 
scrivete  il  mittente.  Molti  ci  inviano  soldi  e  vaglia  e  non 
si  firmano  neppure.  Poi  ci  telefonano  impazienti  e  arrabbiati. 

NO  Non  richiedetemi  il  Notiziario-rivista  N.  1  e  2.  Non  li  ris= 
tampiamo  più.  Ci  vuole  tempo  ragazzi.  Per  le  enormi  richies= 
te  della  N.2  sono  andato  avanti  per  tre  mesi  a  fare  sempre 
la  stessa*  Ne  ho  perfino  la  nausea  della  N.2. 

NO  Non  temete  che  io  smetta.  Abbiamo  appena  incominciato  a  lavo= 
rare.  La  vitalità  del  club  siete  VOI.  Oqni  notizia,  program= 
ma,  esperienza  pervenuta  da  UNO, viene  come  vedete  messa  a 
disposizione  di  TUTTI.  Così  facendo  ci  guadagnamo  tutti  in 
conoscenze  per  camminare  in  fretta  onde  recuperare  tanto 
tanto  tempo  perduto. 

Siamo  agli  inizi  e  solo  coloro  che  si  organizzeranno  come 
abbiamo  fatto  con  questo  piccolo  Home  potranno  INCOMINCIARE 
A  CAPIRE.  Un  proverbio  molto  antico,  cinese  è  ormai  il 
motto  di  tutti  i  comRLuter i sti  del  mondo.  "  SE  ASCOLTO  DIMEN  = 

T ICO ,  SE  VEDO  RICORDO,  SE  FACCIO  CAPISCO".  Nessuna  altra 
alternativa  per  utilizzare  un  computer.  NESSUNA. ! 

NO  Non  ho  finito.  La  mia  raccomandazione  è  ..rileggere  il 
primo  NO. 

ÓJlIiiUo  IL  iùuì:  Qcj-Alù 

Aiie  yfeiu  J  . 

RMimIkKÌ  feOAlCOric  HA  (AQ\<o\ 

Kloisl  E‘  Uh  \llbtOCt\QCo t  LHlEOt<tLo 
fl  EHI  Ffi  ELt^doHicfl  v/ERfì  ! 

tùò'ì  \L  <Woo  i 


PICCOLI  TRUCCHI  NELLA  PROGRAMMAZIONE 


Molti  copiando  programmi  da  listati  non 
TrieBcón^iTàpTre  come  si  faccia  a  scrivere  oltre  la  quarta 
r  iqa . 

Se  ne  possono  fare  5  nella  PRINT  e  6  nei  DATA. 

Nella  "print"  nella  penultima  lettera  mettete  due  punti  (  :  ) 
poi  chiudete  con  (  "  )  e  fate  enter. 

Nei  DATA  l'ultima  lettera  deve  essere  i  due  punti  (  :  ). 
RICHIAMATE  LA  RIGA  CON  L'EDIT,  PORTATE  IL  CURSORE  SUI  DUE 
PUNTI  E  CONTINUATE  TRANQUILLAMENTE  A  BATTERE  ALTRE  28  LETTERE. 

Sul  Manuale  non  si  accenna  alla  forma  più  semplice  e 
rTan^le.  Per  richiamare  una  riga  battete  il  numero  corrispon  = 

I  dente  e  schiacciate  contemporaneamente  FCTN  e  la  lettera  X  o  E 


OL^^^^;  0  meglio,  non  riesco  a  richiamare  un  tuo  programma  sul 
iT^^^computer .  Attenzione  quando  ricevete  o  avete  fatto  anche 
voi  un  programma  molto  lungo  (  oltre  10/12  K  o  meno  ma  però 
con  DIM  molto  alte)  spegnete  il  computer  prima  di  caricarlo. 

Se  non  fate  così,  quando  fate  il  Run  vi  troverete  continuamen= 
te  con"error  in  Next  N,"dove  invece  di  errori  non  ve  ne  sono. 
Molte  volte  non  riuscite  fin  dall'inizio  a  caricarlo. 

Non  parliamo poi  quando  tentate  di  far  eseguire  un  programma 
quando  il  BOX  (  chi  ce  l'ha)  è  acceso.  La  gestione  del  BOX 
vi  porta  via  ben  7  K  al  vostro  computer.  Solo  se  spegnete  il 
BOX  potete  caricare  un  programma  di  16  K. 


)0VE  SONO  I  CARATTERI  D_rF~TNTB]IT  DA1I  'UTENTE.  .  Fate  un  programmino 
con  un  paio  aiTrinUMJeTinu^jr^araUere  usando  i  codici  dal 
127  al  159.  Fate  NEW.  Sparito  tutto?  NO!  Ora  fate  il  vero  pro= 
gramma  e  al  momento  di  usare  i  caratteri  definiti  fate  prima 
RUN  poi  richiamate  il  listato  e  ora  battete  con  il  tasto  CNTR 
abbassato  i  corrispondenti  codici  caratteri.  Eccovi  apparire 
nuovamente  le  sagome  che  avete  definito  nei  rispettivi  caratteri. 
Ricordate  che  potete  definire  dei  caratteri  e  metterli  in  memo= 
ria  su  Tape.  Quando  li  richiamate  non  dimenticate  di  fare  pri= 
ma  il  RUN  poi  iniziare  il  vostro  programma iWHfc. 

:  Ognuno  di  noi  vorrebbe  sapere 

^uiarn^mem^^^n^anc^^^c)  i  spon  i  bi  le  .  6  mesi  fa  vi  avevo  accenna= 
to  come  si  fa.  Le  domande  dei  neofiti  sono  ancora  tante.  Mi  ri= 
peto.  Digitate  1  X=X  +  9 

2  GOSUB  1  fate  enter  poi  RUN.  Aspettate 
alcuni  secondi  e  vedrete  apparire  MEMORY  FULL  IN  1.  Digitate 
ora  PRINT  X.  Il  numero  che  apparirà  sullo  schermo  corrisponde 
al  numero  di  byte  di  memoria  ancora  disponibile. 

Se  avete  usata  la  variabile  X  nel  programma  sostituitela  con  un 
altra  libera.  Così  anche  se  avete  già  iniziato  il  programma  con 
il  N.  Idi  linea*  Risequenziate  per  avere  liberi  1  e  2. 

Qualcuno  mi  ha  fatto  notare  che  c'è  un  metodo  ancora  più  preci= 
so. Lo  sapevo!  Quando  chiedo  ouanti  chilometri  mancano  per  arri= 
vare  a  Roma  importante  è  che  mi  dicono  i  chilometri  e  non  i  metri 
i  centimetri  e  i  millimetri.  Non  mi  era  sembrato  il  caso  che  doves 
si  specificare  anche  gli  ottavi  di  byte. 


1 

REM 

****##■#*#**#*****#* 

2 

REM 

* 

* 

3 

REM 

* 

PAOLO  CANERO 

# 

4 

REM 

* 

# 

5 

REM 

* 

23/8/1983 

# 

6 

REM 

# 

* 

7 

REM 

# 

SCHERZI  DI  DATA 

* 

8 

REM 

* 

# 

9 

REM 

***##****#**####*#* 

10  REM 

UN  ONORE  PRESENTAR! 

NUMERI,  NUMERI,  E  ANCORA  NUMERI 
CHE  PROGRAMMA  SARA'  MAI?  FORSE 
INGEGNERIA,  FISICA,  MATEMATICA  ? 

BATTETE  QUESTO  PROGRAMMA  E  SCO= 
PRIRETE  COSA  SI  PUÒ'  FARE  CON  I 
DATA,  I  NUMERI,  I  BYTE  DI  UN 
M  COMPUTER  ",  lnsomma  non  tutto 
è  perduto .  ! 


I 


DAL  FRANCOMPUTER 


I 


CLUB 


TI  99  4/A  VICENZA 
100  CALL  CLEAR  w 

110  DATA  84, 101,32, 108,111,32,114, 105,112, 101 , 1 16, 1 1 1 , 32, 1 15, 1 1 1 , 1 16, 1 16, 1 1 1 , 1 18 
,111,99, 101,32,32,32,32 

120  DATA  97, 109, 111,32, 105, 108,32,112,114, 101,115, 101,110,116, 101,32,32,32,32,32 
,32,32,32,32,32,32 

130  DATA  99, 111,110,111, 1 15, 99, 1 1 1 , 32, 105, 108,32,112,97, 115, 115,97, 1 16, 1 1 1 , 32, 32 
,32,32,32,32,32,32 

140  DATA  110, 111, 110,32, 100, 101,116, 101,115,116,111,32, 105,32,114, 105,99,111,114 
, 100, 105,32,32,32,32,32 

150  DATA  110, 111, 110,32,116, 101,109, 111,32, 108. 101,32, 109, 105, 101,32,99, 101,114, 

116. 101.122. 122. 101.32.32 

160  DATA  110, 111, 110,32, 109, 105,32,112,105, 101 , 103, 1 1 1 , 32, 97, 108, 108, 101,32,99, 1 
11, 114, 114, 101, 110, 116, 105 

170  DATA  115,111,114,114, 105, 100,111,32,97, 108, 108,39, 105, 109,112,114, 101,118, 10 

5. 115. 116. 111.32.32.32.32 

180  DATA  110, 111, 110,32, 114, 105, 102,117, 103, 103,111,32, 100,97, 108, 108,97,32,115, 

112. 114. 101.103. 105. 117.45 

!  190  DATA  32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 100, 105,99,97,116, 10 

1.122. 122.97 

200  DATA  110,111,110,32, 100, 105,115,116,114,117, 103, 103,111,32, 105,32, 109, 105, 10 

1. 105.32. 112. 101.110.45 

210  DATA  32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 115, 1 
05, 101,114, 105 

220  DATA  110,111,110,32,99,97, 108,99,111,108,111,32, 108, 101,32,115,116,97, 103, 10 

5.111.110. 105.32.32.32 

230  DATA  110,111,110,32, 105, 110, 103,97,110,110,111,32,97,110,99, 104, 101,32, 105,3 

2. 100. 117.98.98. 105.32 

240  DATA  110,111,110,32, 109,105,32,111,115, 116, 105,110,111,32,97, 108,32,114, 105, 
109,112,105,97,110,116,111 

250  DATA  115, Ili, 110, 111,32,99, 117, 114, 105,111,115,111,32, 100, 105,32, 108,117,99, 

101.32. 110. 117. 111. 118.97 

260  DATA  103, 111, 100, 111,32, 100, 101,108,32, 102, 117,116, 117, 114, 111,32,32,32, 32, 3 

2. 32. 32. 32. 32. 32. 32 

270  DATA  99, 101,114,99,111,32, 100, 105,32,99,97,112, 105,114, 101,32,32,32,32,32,32 
, 32, 32, 32, 32, 32 

280  DATA  105,110,99, 105,97, 109,112,111,32,110, 101,103, 108, 105,32, 101 , 1 14, 1 14, 1 1 1 
,114, 105,32,32,32,32,32 

290  DATA  110, 111, 110,32,99,97, 110,99, 101,108, 108,111,32, 105,32,112,111,108, 105,3 

2. 109.111. 114.116. 101.45 

300  DATA  32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 118, 1 
05, 116,97 

310  DATA  65, 108,116,114, 105, 109, 101,110,116, 105,32,32,32,32,32,32,32,32,32,32,32 

"T9  %9  99  "T9  ^9 

320  DATA  99, 111, 109, 101,32, 112, 111, 116, 114, 101, 109, 109,111,32,99,97,110,116,97, 1 

14. 101.32.97. 115.45.32 

330  DATA  32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 115, 105, 101 
,109,101,32 

340  DATA  65,  109,111,114, 101,32, 100, 105,32, 109, 105, 108, 108, 101,32,99,111,108, 108, 

105.110. 101.44.32.32.32 

345  DATA  32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 


346  DATA  32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 
32  32  ’ 

*47*  DATA  32,32,32,32,32,32,32,32,32,32,32,32,32,32,32  32  32  32  32  32  32  3">  3^ 
,32,32  ))->-»- 

350  DATA  67,72,69,32,63,79, 77 , 65, 78, 73,32,69, 39, 32,66,69,76,76,79,32, 63,32,32,32 

"^9 


,32,.Ji' 


360  DATA  32, 32, 102, 46, 32, 1 12, 105, 99, 99, 105,1 10, Ì01p 108,108, 105, 32, 32 

370  DATA  34,68, 111, 109,97, 110, 105,32,69,39,32,66, 101, 108, 108, 111,34 
380  DATA  32,40,78,111,118, 101,109,98,114, 101,32,49,57,56,49,41,32 
390  DATA  84, 111, 100,97, 114, 105,97, 110,97,32,69, 100, 105,116,111,114,101 
900  FOR  1=1  TO  12 


910  CALL  COLORI  I, 16,7) 

920  NEXT  I 
1000  J=1 

1010  FOR  1=2  TO  21 
1020  FOR  J=3  TO  28 
1030  READ  X 
1040  CALL  HCHAR ( I , J , X ) 

1050  NEXT  J 
1060  NEXT  I 
1070  FOR  1=1  TO  500 
1080  NEXT  I 
1090  CALL  CLEAR 
1095  FOR  1=8  TO  15 
1100  FOR  J=3  TO  28 
1110  READ  X 

1120  CALL  HCHAR (I,J,X) 

1130  NEXT  J 

1135  NEXT  I 

1140  FOR  1=1  TO  1000 

1150  NEXT  I 

1170  FOR  1=20  TO  23 

1180  FOR  J=12  TO  28 

1190  READ  X 

1200  CALL  HCHAR ( I , J , X ) 

1210  NEXT  J 

1220  NEXT  I 

1230  FOR  1=1  TO  3000 

1240  NEXT  I 

1250  CALL  CLEAR 

1260  A$="PER  RIVEDERE  :  1" 

1270  FOR  1=1  TU  LEN (A$) 

1280  A=ASC(SEG$(Ai, I, 1) ) 

1290  CALL  HCHAR ( 1 , I + 1 2 , A ) 

1300  NEXT  I 

1301  A$="PER  USCIRE  :  2" 

1302  FOR  1=1  TO  LEN (A*) 

1303  A=ASC (SEGs (A$, 1,1)) 

1304  CALL  HCHAR (3, 1+12, A) 

1305  NEXT  I 


FRANCO  GONZATO 


"CONGIUNZIONE  o  DIVISIONE'?" 


Esposizione  Artisti  Italiani  a  New  York  al= 
la  Benedetti  Art.  Empire  State  Building. 1 978 


1310  CALL  KEY (0,KEY, STATUS) 
1320  IF  STATUS=0  THEN  1310 
1330  IF  KEY=50  THEN  1370 
1335  IF  KEY049  THEN  1310 
1340  CALL  CLEAR 
1350  RESTORE  110 
1360  GOTO  900 
1370  END 


280 

PER$=" 

PER  RIVEDERE" 

290 

PEC$=' 

PER  CONTINUARE" 

3uu 

CALL  C 

LEAR 

i  00 

REM 

[  ******************* i 

310 

PRINT 

D$; 

110 

REM 

* 

* 

320 

1=0 

120 

REM 

* 

* 

330 

PRINT 

T  AB ( 7 ) 5 I; "CREAZ. MAGAZZINO" 

130 

REM 

* 

* 

340 

1  =  1  +  1 

140 

REM 

*  FRANCOMPUTER 

* 

350 

PRINT 

:  T AB  (  7  )  ;  I  ;  "  DET .  "  ;  F'R$  j  "  AL  PUB.": 

150 

REM 

¥• 

* 

35u 

1  =  1  +  1 

160 

REM 

*  GESTIONE 

■Jf 

370 

PRINT 

:TAB<7) j I; "VIS.  TOTALE" 

170 

REM 

* 

* 

380 

1  =  1  +  1 

180 

REM 

*  DI  MAGAZZINO 

* 

390 

PRINT 

: TAB (7) ;  I  ; "VIS.  PARZIALE" 

190 

REM 

* 

* 

400 

1  =  1  +  1 

200 

REM 

* 

* 

410 

PRINT 

: TAB(7) i I  ; "VIS-  UNITARIA" 

210 

REM 

420 

1  =  1  +  1 

220 

L$="CUDICL" 

430 

PRINT 

: TAB (7) j I  ; "SCARICO  ARTICOLI " 

230 

AR$= 

'ARTICOLO" 

440 

1  =  1  +  1 

240 

PR$= 

'PREZZO" 

450 

PRINT 

:TAB(7) ;  I; "MODIFICHE  PREZZO" 

250 

F'E$= 

'N. PEZZI" 

460 

1  =  1  +  1 

260 

D$=" PREMI" 

470 

PRINT 

: T AB ( 7 ) ;  I; "ELIMIN. ARTICOLI" 

270 

PU4= 

‘PER  USCIRE" 

480 

1  =  1  +  1 

490 

PRINT 

: TAB (7) ; Ij "ART. IN  ESAURIMENTO" 

500 

1  =  1  +  1 

510 

PRINT 

: TAB (7) j I j " IN3ERIM. ";AR* 

520 

1  =  1  +  1 

540 

PRINT 

;  l  Ho  '□/  j  1  U'ivt.lM  1  rin  1U 

: TAB (8) j "F  PER  FINE  LAVORO" 

550 

GO  SUB  2920 

560  IF  KEY=70  THEN  3210 
570  IF  KEY=73  THEN  1550 
5S0  M=KEY-47 
590  IF  M< 1  THEN  300 
600  IF  M > 1 0  THEN  300 

610  QN  M  G0  TO  620,1200,940,2330,1640,1640,1640,1640,1270,2580 
620  CALL  CLEAR 

630  FRI  NT  TAB(IO)  ;  "CREAZIONE":  s  :  T  AB  <  1 0  )  "MAGAZZINO":  :::::::::: 
640  OF'TIQN  BASE  1 

650  BIM  COD (250) , ART$ (250) , FREZ (250) ,PEZ (250) 

660  N=1 
670  FRI NT  C$? 

680  INPUT  COD (N) 

690  FOR  1=1  TO  N 

700  IF  I=N  THEN  760 

710  IF  COD ( I ) <  >CGD ( N ) THEN  750 

720  FRI NT  C$5"  GIÀ’  ESISTENTE!":: 

730  CALL  SOUND (250, 765, 1) 

740  GO  TO  670 
750  NEXT  I 

760  PRINT  AR$j"  (MAX  30  LETTERE)  "s 
770  INPUT  ART$ (N) 

780  IF  LEN (ART$ (N) ) <29  THEN  820 
790  CALL  SOUND (250, 765, 1) 

800  PRINT  "NOME  TROPPO  LUNGO!" 

810  GO  TO  760 
820  PRINT  PR$i 
830  INPUT  PREZ(N) 

840  PRINT  F'E$; 

850  INPUT  PEZ(N) 

860  PRINT  :  :  "CE’  ALTRO? (S/N) ": : 

870  GO  SUB  2920 

880  IF  KEY=78  THEN  910 

890  N=N+1 


900  GQ  T0  670 
910  GO  SUB  2960 
920  GO  TO  300 
930  CALL  CLEAR 
940  GO  SUB  3310 

950  PRINT  TAB (6) ; "VISUALI 2 ZAZ IONE" :  : TAB ( 10) ; "TOTALE": : :::::::::: 

960  INPUT  "A  SEGUIRE  DA  CODICE  N.":Z 

970  FOR  1=1  TO  N 

980  IF  COD ( I ) >=Z  THEN  1030 

990  NEXT  I 

1000  PRINT  "NON  ESISTONO  ARTICOLI D$S "UN  TASTO" 

1010  GO  SUB  2920 
1020  GO  TO  220 
1030  CALL  CLEAR 
1040  L=0 

1050  FOR  H=I  TO  N 

1060  PRINT  : ART* (H) : COD (H) ; TAB (6) ; PREZ (H) ; TAB (15) ; INT (PREZ (H) *GU) ; TAB (24) ; F'EZ (H) 
1070  L=L+3 

1080  IF  L<21  THEN  1150 
1090  IF  H=N  THEN  1160 

1100  PRINT  :  Di; TAB (10) ; "1  " ; PEC*: TAB < 10) ; "2  ";PU* 

1110  GO  SUB  2920 

1120  IF  KEY=50  THEN  300 

1130  L=0 

1140  CALL  CLEAR 

1150  NEXT  H 

1160  PRINT  : "PREMI"; TAB (8) ; "1  " j PER*: TAB (S) j "2  ";PU* 

1170  GO  SUB  2920 
1180  IF  KEY=49  THEN  930 
1190  GO  TO  300 
1200  GO  SUB  3310 

1210  PRINT  TAB(0) ; "DETERMINAZIONE": : :TAB(6) ;PR*; "  AL  PUBBLICO":::::::::::: 

1220  IF  GU=0  THEN  1240 

1230  PRINT  "GUADAGNO  PRECEDENTE" :  "RICHIESTO  (IN  V.)  " ; GU*100-100:  : 

1240  INPUT  "GUADAGNO  DESIDERATO  (IN  7.)":GU 

1 250  GU= <  GU+ 1 00 ) / 1 00 

1260  GO  TO  300 

1270  GO  SUB  3310 

1280  CALL  CLEAR 

1290  PRINT  TAB (2) 5 "VISUALIZZAZZIONE  " ; AR*: : TAB (7) ; " IN  ESAURIMENTO"::::::::::::: 
1300  PRINT  "ART. CON  ";PE*;"  MINORE  DI  "; 

1310  INPUT  E 

1320  CALL  CLEAR 

1330  L=0 

1340  Bl=l 

1350  FOR  J=1  TO  N 

1360  IF  PEZ ( J ) >E  THEN  1480 

1370  PRINT  :  ART* (J) : COD (J) J TAB (6) 5 PREZ (J) 5 TAB (15) ; INT (PREZ ( J ) *GU) ; TAB (24) j PEZ ( J) 
1380  Bl=2 
1390  L=L+3 

1400  IF  L<21  THEN  1480 
1410  IF  J=N  THEN  1490 

1420  PRINT  :D*;TAB(10) ; "1  " ; PEC*; TAB ( IO) ; "2  "JPU* 

1430  GO  SUB  2920 

1440  CALL  CLEAR 

1450  IF  KEY=50  THEN  300 

1460  CALL  CLEAR 

1470  L=0 

1480  NEXT  J 

1490  ON  B1  GO  TO  1500,1510 

1500  PRINT  TAB ( 1 1 ) ; "NESSUNO" :::::::: 

1510  PRINT  : D$; TAB ( 10) ; " 1  " ;  PER*; TAB ( 10) ; "2  ";PU* 

1520  GO  SUB  2920 


1530  IF  KEY=49  THEN  12S0 
1540  G0  TO  300 
1550  GQ  SUB  3310 

1560  FRI NT  TAB( 10) ; "INVENTARIO": ::::: : 

1570  INV=0 

ISSO  FGR  1=1  TO  N 

1590  I N V=  I N V+F'RE  Z  (  I  )  *F'E  Z  (  I  ) 

1600  NEXT  I 

1610  PRINT  TAB ( 8 ) ; " L . " ;  I NV :  :  :  :  :  :  :  : D$  j "  UN  TASTO  ";PU$ 

1620  GO  SUB  2920 

1630  GO  TO  300 

*640  GQ  SUB  3310 

1650  CALL  CLEAR 

1660  PRINT  TAB (4)j 

1670  H$=" ELI MI NAZIONE  ARTICOLO" 

1680  IF  M=8  THEN  1790 
1690  CALL  CLEAR 
1700  PRINT  TAB (2); 

1710  H$=" VISUALIZZAZIONE  UNITARIA" 

1720  IF  M=5  THEN  1790 
1730  IF  M=6  THEN  1770 
1740  PRINT  TAB (6); 

1750  Ht= "MODIFICHE  PREZZO" 

1760  GO  TO  1790 
1770  PRINT  TAB (7); 

1780  H$=" SCARICO  ARTICOLI" 

1790  PRINT  H$: :::::::: "CHIAMATA: "5 TAB (12) j "1  PER  " 5 C$: : TAB ( 12) ; "2  PER  ";AR$:: 
1800  PRINT  TAB ( 1 2 ) j " 0  ";PU$::: 

1810  GO  SUB  2920 

1320  A=KEY-47 

1830  IF  A< 1  THEN  1640 

1840  IF  A >3  THEN  1640 

1850  ON  A  GO  TO  300,1860,1950 

1860  PRINT  c$;"  "; 

1870  INPUT  CORI 

1880  FOR  J=1  TO  N 

1890  IF  COR I =CQD ( J ) THEN  2020 

1900  NEXT  J 

1910  PRINT  ::C$; 

1920  PRINT  "  INESISTENTE": :D$; "  UN  TASTO": 

1930  GO  SUB  2920 
1940  GO  TO  1650 
1950  PRINT  AR$: 

.1960  INPUT  ART I $ 

1970  FOR  J=1  TO  N 

1980  IF  ART I $=ART $  (  J  ) THEN  2020 

1990  NEXT  J 

2000  PRINT  ::AR$S 

2010  GO  TO  1920 

2020  CALL  CLEAR 

2030  PRINT  :  :  :  :  :  ART$  (  J)  :  COD  (  J)  ;  TAB  (6)  ;  F'REZ  (  J)  ;  TAB  (15)  ?  INT  (PREZ  (  J)  *GU)  ;  TAB  (24)  J  PE 
Z  (  J  )  :  :  :  :  : 

2040  IF  M<>5  THEN  2080 

2050  PRINT  :::::: D$j "  UN  TASTO  " 

2060  GO  SUB  2920 
2070  GO  TO  1650 
2080  IF  MOS  THEN  2240 

2090  PRINT  :  : "E’ DA  ELIMINARE  GIUSTO (S/N) ?" 

2100  GO  SUB  2920 

2110  IF  KEY=83  THEN  2150 

2120  PRINT  :AR$i"  NON  MODIFICATO" :: D$; "  UN  TASTO" 

2130  GO  SUB  2920 
2140  GO  TO  1650 
2150  IF  J=N  THEN  2220 


2160 

2170 

2100 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2200 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2300 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2400 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2500 


POR  1=0  TQ  N-l 
CQD ( I ) =CGD ( 1+1 ) 
hRT$(I)=ART*(I+1) 

PREZ ( I ) =PREZ ( 1+1 ) 

PEZ ( I ) =PEZ (  1  +  1  ) 

NE  XI  I 
N=N-1 

00  TQ  1650 
IF  M=7  THEN  2290 

PRINT  :  :  :  PE$; 11  PRECEDENTE"  i  PEZ  (J  ):  : 
FRI NT  PE$; 

INPUT  "  ATTUALE?  ":PEZ(J) 

GO  TQ  1 690 

PRINT  ::sPR$j"  VECCHIO  L. " ; PREZ ( J ) : 
PRINT  PR*  ; 

INPUT  "  ATTUALE  L.  ":PREZ(J) 

00  T0  1690 
GG  SUB  3310 
CALL  CLEAR 


2000  PRINT  AR*;TA6<28>! 

2810  INPUT  ART$iN) 

2020  PRINT  :PR*J 
2830  INPUT  PREZ (N) 

2840  PRINT  : PE*« 

2050  INPUT  PEZ (N) 

2060  00  SUB  2960 

2070  PR I NT  : " NUQV I  ART  I COL I  (S/N) 

2380  GO  SUB  2920 

2090  CALL  CLEAR 

2900  IF  KEY =8 3  THEN  2590 

2910  G0  TO  300 

2920  CALL  SOUND  UGO,  765,  1  ) 

2930  CALL  KEY ( 0 , KEY , ST Al  US ) 

2940  IF  STATUS=0  THEN  2930 
2950  RETURN 
2960  REM  ORDINAMENTO 
2970  PUR  K=1  TO  N-l 
2900  M=CQD(K) 

2990  M1*=ART*  (K) 


PRINT  TAB (2) ; "VISUALIZZAZIONE  PARZIALE" 


PRINT  "ARTICOLO" ; TAB (20) :  : 
INPUT  ARI* 

CALL  CLEAR 
L-0 

V=LEN ( ARI*) 

POR  1=1  TG  N 
IF  SE0* (ART* ( I ) , 1 , V) 

PRINT 


3000  M2=PREZ (K) 

3010  M3=PEZ(K) 

3020  W=K 

3030  FQR  l'=K+l  TG  N 
3040  IF  M<=CÙD ( I ) THEN  3100 
3050  M=CUD ( I ) 

3060  M1*=ART$ ( I ) 


ARI*  THEN  2510 

ART* ( I ) : COD ( I ) ; TAB (6) ; PREZ ( I ) ; TAB ( 15) ;  INI (PREZ < I ) *0U) ; TAB (24) JPEZ(I) 


L— L+3 

3070 

M2=PREZ (I) 

IF  L<21  THEN  2510 

3000 

M3=PEZ (I) 

PR I NT  : D* i TAB ( 1 0 ) i " 1  " ; PEC* : TAB (10);" 2 

"  ;  Pij* 

3090 

W=I 

00  SUB  2920 

3 1 00 

NEXT  I 

IF  KEY=50  THEN  300 

3110 

CGD(W)=C0D(K) 

L=0 

3120 

ART  * ( W ) =ART * ( K ) 

CALL  CLEAR 

3 1 30 

PREZ  U‘J)=PRE2  (IO 

NEXT  I 

3140 

PEZ (W)=PEZ (K) 

IF  LOG  THEN  2540 

3150 

CÙD(K) =M 

PR I NT  TAB (12);" NESSUNO “:::::: 

3160 

ART* (K) =M1* 

PR I NT  : D* ; TAB (10) ; " 1  " ;  PER* : TAB (10);" 2 

"  ;  pu* 

3170 

PREZ (K) =M2 

GG  SUB  2920 

3100 

PEZ (K) =M3 

IF  KEY=49  THEN  2340 

3190 

NEXT  K 

00  TQ  300 

3200 

RETURN 

00  SUB  3310 

3210 

CALL  CLEAR 

a: 


CI  ui 


uj  a. 
ai  _i  a  _ 


CI  -1  h-  1-1 
...i  ‘■-j:  ui  f- 

u  U  IL  0 


.  c>  O  c* 
r  ,  —  l  i  r  :> 
8-  >+  *+ 
r'i  ro  io  ro 


2590  PRINT  TAB(IO) ; "INSERIMENTO": :TAB(11) 
2600  PRINT  "CODICI  DISPONIBILI":: 

2610  K=1 
2620  W=1 

2630  IF  COD (W)  =K  THEN  2660 
2640  PRINT  K; 

2650  GO  TO  2670 
2660  W=W+1 
2670  K=K+ 1 

26B0  IF  W>N  THEN  2700 

2690  00  TO  2630 

2700  PRINT  K: "e  seguenti"::: 

2710  N=N+1 
2720  PRINT  C$; 

2730  INPUT  CQD (N) 

2740  FQR  1=1  TO  N-l 

2750  IF  COD  (IX  >COD  (N)  THEN  2790 

2760  CALL  SOUND ( 100, 765, 1 ) 

2770  PRINT  C*;"  GIÀ'  ESISTENTE" 

2780  GO  TQ  2720 
2790  NEXT  I 


; AR*:  :::::: 

3220  OPEN  £1  : "CS2" , INTERNAL, OUTPUT, FI XED 

3230  PRINT  £1  : N, GU 

3240  PRINT  : "STO  REGISTRANDO": : 

3250  FOR  1=1  TO  N 
3260  PRINT  I;"  +  " ; AR*: : 

3270  PRINT  £1 : COD (  I  )  , ART* ( 1 ) , PREZ ( I ) , PEZ ( I ) 

3200  NEXT  I 

3290  CLQSE  £1 

3300  GO  TO  3430 

3310  CALL  CLEAR 

3320  IF  NOO  THEN  3420 

3330  OPEN  £2: "CSI", INTERNAL, INPUT  ,FIXED 

3340  INPUT  £2: N, GU 

3350  PRINT  : "STO  MEMORIZZANDO":: 

3360  FOR  1=1  TO  N 
3370  PRINT  li"''  "  ì  AR*:  : 

3380  INPUT  £2: COD ( I ) , ART* ( I ) , PREZ ( I ) , PEZ ( I ) 
3390  NEXT  I 


PREANAL  I  S  I  ("PRE-SCAN")  !  (§>  p  -  j  (£>  p  + 


Dopo  l'inserimento  del  RUN  per  dare  inizio  ad  un  programma,  si  può 
notare  una  pausa  prima  che  inizi  l'effettivo  programma. 

Tale  pausa  sta  ad  indicare  il  tempo  che  il  computer  impiega  per  pre¬ 
analizzare  (pre-scan)  il  vostro  programma  e  quindi  stabilire  lo  spa¬ 
zio  per  la  memoria  delle  variabili,  elenchi  e  dati. 

In  seguito,  il  computer  procederà  attraverso  ciascuna  i struzione, ese¬ 
guirà  le  giuste  funzioni,  e  stabilirà  i  valori  variabili. 

Visto  che  il  tempo  richiesto  per  la  funzione  di  preanalisi  dipende 
dalla  lunghezza  del  programma  da  eseguirsi,  si  potrà  diminuirei 
pausa  di  preanalisi  (pre-scan)  soprattutto  se  si  prevede  che  il  pn) 
gramma  sarà  di  lunga  durata. 

I  nuovi  comandi  del  BASIC  ESTESO,  ! @P- i  l@pt permettono  di  controlla 
re  quali  istruzioni  non  saranno  preanalizzate. 

Dal  momento  che  lo  scopo  delle  preanalisi  è  quello  di  predisporre 
lo  spazio  memoria  per  le  variabili,  sarà  necessario  effettuare  la 
preanalisi  soltanto  per  quelle  istruzioni  che  contengono  il  primo 
riferimento  alle  variabili. 

Di  conseguenza,  molte  altre  istruzioni  del  vostro  programma  non  ri¬ 
chiedono  le  preanalisi. 

E'  richiesta  una  attenta  predisposizione  del  programma  per  minimizza 
re  gli  "statement"  che  necessitano  le  preanalisi.  Quando  nel  vostro 
programma  vengono  usati  certi  tipi  di  "statement"  (come  viene  qui 
spiegato)  dovranno  essere  inclusi  nelle  preanalisi  i  procedimenti 
elencati  qui  di  seguito  : 

-  inserire  il  vostro  1°  dato  nelle  preanalisi 

-  includere  il  1°  uso  di  ciascuna  variabile  e/o  elenco  (includere 
inoltre  la  OPTI  ON  BASE,  se  usata) 

-  includere  il  1°  riferimento  di  ciascuna  CALL  (chiamata)  di  qualsia 
si  programma 

-  includere  tutte  le  esposizioni  DEF  per  funzioni  definite 

-  includere  tutti  gli  STATEMENT  SUB  e  quelle  SUB  END  nelle  preanalisi 

Tenere  presente  che  una  variabile,  su  un  programma  SUB,  definito,  è 
considerata  essere  unica  nei  riguardi  di  altre  variabili  usate  in  una 
altra  parte  del  vostro  programma  anche  se  il  nome  ed  il  valore  sarà 
lo  stesso. 

Quindi,  ciascuna  variabile  usata  in  un  SUB  programma  definito  deve  es^ 
sere  inclusa  nella  preanalisi. 

Per  usare  l'opzione  della  preanalisi,  accertatevi  innanzitutto  che  il 
vostro  programma  completo  si  svolga  con  correttezza.  Quindi  all'ini¬ 
zio  di  un  gruppo  di  STATEMENT  di  funzione  si  userà  il  comando  !<®P- 
per  annullare  la  preanalisi. 

Gli  STATEMENT  che  seguiranno  non  saranno  preanalizzate  per  far  si  che 
l'esecuzione  del  vostro  programma  abbia  inizio  più  rapidamente. 


-2- 


Qualsiasi  STATEMENT  collegato  a  nomi  variabili  (a  cui  non  è  stato  prece¬ 
dentemente  fatto  riferimento  nel  corso  della  preanalisi)  risponde  con 
un  errore  di  sintassi  se  la  preanalisi  è  spenta  (OFF). 

Da  notare  che!@P-non  può  essere  seguito  da  un'altra  STATEMENT  in  caso 
di  STATEMENT  multipli. 

Si  potrà  scegliere  l'uso  della  caratteristica  "preanalisi"  svariate  vol¬ 
te  nel  corso  del  vostro  programma. 

Attraverso  l'accensione  e  lo  spegnimento  della  preanalisi,  il  vostro  prò 
gramma  potrà  iniziare  a  svolgersi  in  maniera  più  efficiente. 

L'effetto  della  preanalisi  è  più  visibile  nei  lunghi  programmi  che  in 
quelli  brevi. 

Si  noti  che  quando  si  usa  il  Computer  TI  99/4A  i  comandi  !  (?  P- *  1  @  P+  po¬ 
tranno  essere  inseriti  con  un  carattere  "p"  minuscolo. 

Gli  esempi  che  seguono  vi  dimostreranno  come  includere  gli  STATEMENT  di 
preanalisi  in  un  programma  già  esistente. 

L'esempio  finale  dimostra  l'uso  più  efficace  delle  caratteristiche  di  pre 
analisi  con  l'uso  di  uno  STATEMENT  GOTO. 

Con  l'aggiunta  di  GOTO  si  ha  l'addizionale  abilità  di  indurre  il  computer 
a  predisporre  spazio  di  memoria  per  STATEMENT  di  chiamata  (CALL),  come  pu^ 
re  per  STATEMENT  di  variabili-collegate,  senza  in  effetti  eseguire  tali 
STATEMENT. 

Per  far  presto  basterà  semplicemente  usare  l'istruzione  GOTO  nel  vostro 
programma. 

L'esempio  che  segue  vi  dimostra  il  programma  originale  adattato  con  uno 
STATEMENT  di  preanalisi  e  di  GOTO. 

Si  noti  che  il  metodo  GOTO  cre.a  lo  spazio  necessario  di  memoria  per  es¬ 
sere  utilizzate  nella  linea  20. 

Tuttavia,  GLI  STATEMENT  nella  linea  20  non  si  eseguiranno  fino  a  che  non 
saranno  incontrate  più  avanti  nel  programma. 

Così,  come  dimostrato  dal  procedimento  e  seguendo  gli  esempi,  si  potraji 
no  mettere  tutti  i  vostri  riferimenti  di  variabili  assieme  e  le  vostre 
chiamate  di  sub-programma  non  dovranno  essere  sintatticamente  corrette. 
Questo  potrà  rappresentare  l'uso  più  efficace  della  vostra  opzione  di  pre¬ 
analisi  . 

\0  DATA  3 

20  GOTO  100: :DELAY: : CALL  CHAR: :CALL  CLEAR: :CALL  HCHAR :  : CALL 
VCHAR: :  ISP¬ 
IDO  CALL  CLEAR 

110  CALL  CHAR(96,'-FFFFFFFFFFFFFFFF") 

120  CALL  CHAR ( 42 ,  '  ’OFOFOFOFOFOFOFOF" ) 

130  . 

140  . 

150  . 

160  CALL  HCHAR (12, 17, 42) 

170  CALL  VCHAR (14, 17, 96) 

190  FOR  DELAY=1  TO  500 
200  NEXT  DELAY 
210  . 

220  . 


100  GOTO  180: :X,Y, ALPHA, BETA, Z=DELTA: :DIM  B( 10,10) 
110  CALL  KEY: :CALL  HCHAR: : CALL  CLEAR: : CALL  MYSUB 
120  DATA  1,3,STRINC 
130  DEF  F(X)=1-X»SIN(X) 

140  . 

150  . 

160  . 

170  ! @P- 
180  . 

190  . 

200  . 
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,610  CALL  CHAR (35, "60407C707050505Q" ) 

5  CALL  CLEAR 

620  CALL  CHAR (40, "FFFFFFFFFFFFFFFF" ) 

6  CALL  COLOR (13, 5, 16) 

630  CALL  CHAR (126, " 3C3C3C3C3C3C7EFF " ) 

7  CALL  SCREEN (7) 

640  CALL  CHAR ( 127, "3C3C3C3C3C3C3C3C") 

10  C$=" 1818FFBD993C66C3" 

650  CAL-l  SCREEN  (6) 

15  CALL  CHAR ( 129, C$) 

660  FOR  1=2  TO  16 

20  CALL  HCHAR (4, 4, 129,24) 

670  READ  A,  B 

30  CALL  HCHAR (20, 4, 129,24) 

680  CALL  COLOR (I, A, B) 

40  CALL  VCHAR(4,4, 129, 16) 

690  NEXT  I 

50  CALL  9CHAR (4,27, 129, 16) 

700  REM  SET  SCREEN 

110  CALL  COLOR (5, 16, 1) 

710  CALL  HCHAR ( 17, 1, 143,256) 

120  CALL  COLOR (6, 16, 1) 

720  CALL  HCHAR (17, 5, 106,24) 

130  CALL  COLOR (7, 16, 1) 

730  CALL  HCHAR (18, 6, 106,22) 

150  A$="  FRANCOMPUTER" 

740  CALL  HCHAR (19, 6, 106,22) 

750  CALL  HCHAR (20,8,1 06 , 1 a ) 

170  C0=8 

760  FOR  1=135  TO  142 

180  GOSUB  300 

770  READ  ROW, COL 

190  A$=" PRESENTA" 

780  CALL  HCHAR (ROW, COL, I) 

200  R I = 1 1 

790  NEXT  I 

210  C0=11 

800  FOR  1=1  TO  6 

220  GOSUB  300 

810  READ  ROW, COL 

230  A$="S  A  F  A  F:  I" 

820  CALL  HCHAR (ROW, COL,  155,4) 

240  RI  =  14 

830  NEXT  I 

250  C0=9 

840  CALL  HCHAR (14, 5, 148) 

260  GOSUB  300 

850  CALL  VCHAR(15,5, 147,2) 

270  FOR  X=1  TO  60 

860  CALL  HCHAR (14, 28, 150) 

271  CALL  COLOR (13, 16,5) 

870  CALL  VCHAR(15,28, 149,2) 

272  CALL  COLOR (13, 5, 16) 

880  CALL  HCHAR (13,4, 126) 

280  NEXT  X  I 

890  CALL  HCHAR (13,29,126) 

290  GOTO  350 

900  CALL  OCHAR (11,4,127,2) 

300  FOR  K=1  TO  LEN (A$) 

310  CALL  HCHAR (RI , CO+K, ASC (SEG$ (A$,K, 1 ) ) ) 

320  CALL  SOUND (10,1 500 , 0 ) 

330  NEXT  K 
340  RETURN 

350  CALL  COLOR (5, 2,1) 

360  CALL  COLOR (6, 2,1) 

370  CALL  COLOR (7, 2,1) 

380  CALL  CLEAR 
390  CALL  SCREEN (4) 

400  REM  IL  SALTO  DELLA  TARTARUGA 

410  PRINT  "PER  GIOCARE  PREMI  -S-"::"PER  ISTRUZIONI  -N-"::: 
420  CALL  KEY ( 0 , K , S ) 

430  IF  S=0  THEN  420 
440  IF  K=7B  THEN  4210 
450  IF  K=83  THEN  4290  ELSE  420 
460  CALL  CLEAR 
470  REM  CARATTERI 
480  RESTORE  1050 
490  FOR  1=147  TO  Ì59 
500  READ  A$ 

510  CALL  CHAR ( I , A$) 

520  NEXT  I 

530  FOR  1=135  TO  143 
540  READ  A$ 

550  CALL  CHAR ( I , A$) 

560  NEXT  I 

570  FOR  1=106  TO  117 

580  READ  A$ 

590  CALL  CHAR ( I , A$) 

600  NEXT  I 


910  CALL  VCHAR(1 1,29, 127,2) 

920  CALL  HCHAR  (17,  9,  HO) 

930  CALL  HCHAR (17, 14, 110) 

940  CALL  HCHAR (17, 19, 110) 

950  CALL  HCHAR (17, 24, 110) 

960  CALL  HCHAR (1, 1,40,96) 

970  FOR  1=151  TO  159 

980  READ  ROW, COL 

990  CALL  HCHAR (ROW, COL, I) 

1000  NEXT  I 

1010  FOR  1=151  TO  159 

1020  READ  ROW, COL 

1 030  CALL  HCHAR ( ROW , COL , I ) 

1040  NEXT  I 


1190  1=2 
1200  V=3 
1210  GOSUB  4150 

1220  M$=“  <  (  (  (PUNTI  =  "8,STRt  (CRS)&"  (  (■' 

1230  1=2 
1240  0=17 
1250  GOSUB  4150 
1260  M$=‘‘LI  VELLD="&STR$ (SK) 

1270  Z=23 
1280  0=4 
1290  GOSUB  4150 
1300  M$="RECORD="&STR$ (HS) 

1310  Z=23 
1320  0=1 a 
1330  GOSUB  4150 
1340  REM  GIOCO 
1350  CALL  HCHAR <13, 5, 115) 

1360  CALL  HCHAR( 4, 1,40,64) 

1370  M$=" PREM I (UN (TASTO (PER (Gl OCARE ' 

1300  Z=4 
1390  0=5 
1400  GOSUB  4140 
1410  CALL  SOUND (-50, 2000,0) 

1420  CALL  KEY (0, K, S) 

1430  IF  S=1  THEN  1440  ELSE  1420 
1440  CALL  HCHAR( 4, 1,32,64) 

1450  CALL  HCHAR (13,5,32) 

1460  R=13 
1470  C=6 

1480  CALL  HCHAR <R,C, 115) 

1490  IF  R=16  THEN  1540 
1500  C=C+1 
1510  R=R+1 

1520  CALL  HCHAR (R-1,C- 1,32) 

1530  GOTO  1 480 
1540  CALL  SOUND (-50, C#30,0) 

1550  CALL  KEY (0, K, S) 

1560  IF  K=6a  THEN  1590 
1570  IF  K=83  THEN  2070  ELSE  1550 
ISSO  REM  DESTRO 
1590  ON  SK  GOSUB  3100,2970,2970 

1600  CALL  GCHAR (R, C, G) 

1610  CALL  HCHAR (R,C, 32) 

SKWw 

1660  IF  (C=l 1 ) + (C-16) + (C=21 ) THEN  1670  ELSE 
1670  CALL  HCHAR (R,C, 32) 

1680  C=C+1 

1690  CALL  HCHAR (R,C,G) 

1700  GOSUB  2560 

1710  CALL  HCHAR (R,C, 32) 

1720  C=C+1 
1730  R=R+1 

1740  CALL  HCHAR (R,C,G> 

1750  IF  R=16  THEN  1760  ELSE  1710 
1760  CALL  HCHAR (13, 5, 32) 

1770  CALL  GCHAR ( 17, C,T) 

1780  IF  T= 1 06  THEN  3330 
1790  CALL  SOUND (-50, C*30,0) 

1800  PT=RAN (SK) 

1810  IF  PT > 1  THEN  1830 
1820  GOSUB  2830 
1830  GOTO  1550 
lb*tO  STOP 
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1850  REM  SALTO  A  DESTRA 
1860  CALL  GCHAR (13, 28, M) 

1870  IF  (M=32)  +  (G<>115)THEJM  1980 
Ì880  CALL  HCHAR ( 13, 2S, 113) 

1890  CALL  SOUND. (-50, 2000,0) 

1900  CALL  HCHAR (R, C, 116) 

1910  CALL  SOUND (-50,0*30, 0) 

1920  G=1 16 

1930  CRS=CRS+ 1 

1940  M$=STR$(CRS)&"  (" 

1950  1=2 

1960  V=27 

1970  GOSUB  4140 

1980  GOSUB  2560 

1990  CALL  HCHAR (R, C, 32) 

2000  C=C-1 
2010  R=R  +  1 

2020  CALL  HCHAR (R, C, G) 

2030  IF  R=16  THEN  1770 
2040  GOTO  1990 
2050  STOP 

2060  REM  SINISTRA 

2070  0N  SK  GOSUB  3100,2970,2970 


20B0  CALL  GCHAR (  R ,  C ,  G  ) 

2090  CALL  HCHAR (R, C, 32) 

2100  C=C-1 
2110  R=R-1 

2120  CALL  HCHAR (R,C,G) 

2130  IF  C=7  THEIM  2330 

2140  IF  (C=12) + (C=17) + (C=22) THEN  2150  ELSE  2090 


2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 


2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 


CALL  HCHAR (R,C, 32)  « 

C=C-1 

CAlL  HCHAR (R,C,G) 

GOSUB  2560 

CALL  HCHAR (R,C, 32) 

C=C-1 

R=R+1  B 

CALL  HCHAR <R,C,G)  | 

IF  R=16  THEN  2240  ELSE  219ofl 
CALL  GCHAR < 17, C,T) 

IF  T=106  THEN  3330 
CALL  SOUND ( -50 , C*30 , 0 ) 
PT-RAN(SK) 

IF  PT>1  THEN  2300 
GOSUB  2B30 
GOTO  1550 
STOP 

REM  SALTO  A  SINISTRA 
CALL,  HCHAR <R,C,  32) 

CALL  HCHAR (R-l, C-l, G) 

IF  G=1 15  THEN  2430 
CALL  HCHAR (13, 5, 114) 

CALL  SOUND ( -50 , 2000 , 0 ) 

G=1 15 

CALL  HCHAR (R-1,C-1,G) 

CALL  SOUND (-50, 30* (C-l ) , 0) 

GOSUB  2560 

CALL  HCHAR (13, 5, 35) 

CALL  HCHAR (R-l, C-l, 32) 

CALL  HCHAR (R,C, 32) 

C=C+1 

R=R+1 

CALL  HCHAR (R,C,G) 

IF  R=Ì6  THEN  2490  ELSE  2440 


IF  RF=5  THEN  2760  ELSE  2310 

IF  ( RF— 5 )  +  (RF=3)  THEN  2740  ELSE  2810 

CALL  GCHAR ( 19,F+1 , T) 

IF  T=lll  THEN  281 0 

IF  (F=7) + (F=12) + (F-17) + (F=22) THEN  2770  ELSE  2810 
CALL  HCHAR (17, F+2, 106) 

CALL  HCHAR ( 18, F+l , 111) 

CALL  SOUND (-50, C*20,0) 

F=5 

RETURN 

REM  RISTAMPA  TARTARUGA 
FOR  1=8  TO  23  STEP  5 

CALL  GCHAR  (18,  I ,  T)  ^— — ***— 

IF  lOill  THEN  2880  £ 

CALL  HCHAR (1 8, I, 106)  £) 

CALL  HCHAR ( 17, 1+1, 110)  ro 

NEXT  I  g 

FOR  1=7  TO  22  STEP  5  :„T  fE 

CALL  GCHAR (  19,  I,T)  "  21 

IF  TOlll  THEN  2940  _  £ 

CALL  HCHAR (19,1,106 >  d  ~ 

CALL  HCHAR (17, 1+2, 1 10)  tì  S  * 

l  ,1 —  \ji  t  t  cn  LLl  M 

NEXT  I  r  _j  -a 

RETURN  h-  U  m  od  o  ^ 

REM  STAMPA  PESCE  a.  d  ~  ut  ‘ù4  tiri  °  a 

r  r.  z  ^  U.  «  Il  l£  □  Z 

FF=FF— 1  ihUmilu.uoiìJ 

CALL  GCHAR  (  1 9 ,  !■  P - 1 ,  I",1  o  o  o  o  o  o  o  o 

r  j  n  ut  -o  n  ®  o- 

IF  T=  1 1 1  THEN  3050  ro  ro  ro  ro  ro  r'<  ro  ro 

IF  FF<7  THEN  3080  _ 

CALL  HCHAR  (  1 9 ,  FF ,  1 06  )  fc*»— — 

CALL  HCHAR  (  1 9,  FF-- 1,109) 

CALL  SOUND (-25, 4000,0) 


2490  CALL  GCHAR ( 17, 9, T) 

2500  IF  T=106  THEN  3330 
2510  CALL  SOUND (-50, C*3ù,0) 

2520  GOSUB  2830 
25  10  GU  (  LI  1550 
2540  STOP 

2550  REM  IMMERSIONE  TARTARUGA 
2560  RF=RAN (5) 

2570  0N  SE  GOTO  2730,2660,2580 
2580  CALL  GCHAR ( 19, F, T) 

2590  IF  T= 1 1 1  THEN  2660 

2600  IF  <RF=2) + (RF=3) THEN  2610  ELSE  26ò0 

2610  IF  (F=7)+(F=12)+(F=17)+ (F=22) THEN  2620  ELSE  2660 

2620  CALL  HCHAR ( 17, F+2, 106) 

2630  CALL  HCHAR ( 18, F+l .1 1 1 ) 

-640  CALL  SOUND (-50, C*3o,o) 

2650  F=5 

2660  IF  ( RF=4 )  +  ( RF-- 1  )  THEN  2670  LI. SE  2720 

2670  IF  (FF=8) + (FF=13) + (FF=18) + (FF=23) THEN  2680  ELSE 

2680  CALL  HCHAR ( 17 , FF+1 , 106) 

2690  CALL  HCHAR  (  19,  FF--1 ,111) 

2700  CALL  SOUND (-50, C*20,0) 

2710  FF=28 


3040  GOTO  3100 

3050  CALL  HCHAR ( 1 9 , FF , 1 06 ) 

30 60  FF=28 

3070  GOTO  3100 

3080  FF=28 

3090  CALL  HCHAR (19, 6, 106) 
3100  F=F+1 

3110  CALL  GCHAR (18, F+l, T) 
3120  IF  T= 111  THEN  3180 
3130  IF  F>26  THEN  3210 
3140  CALL  HCHAR ( 18, F, 106) 

3 1 50  CALL  HCHAR ( 1 8 , F+ 1 , 1 08 ) 
3160  CALL  SOUND (-25, 4000,0) 
3170  GOTO  3260 
3180  CALL  HCHAR ( 18, F, 106) 
3190  F=5 

2720  3200  GOTO  3260 
3210  F=5 

3220  CALL  HCHAR (18,27,1 06 ) 

3 *  _‘0  GOTO  3260 

3.240  CALL  HCHAR  (  18, 27,  106) 


3250  REM  STAMPA  UOMO  RACCOGLITORE  IN  ERRORE 
3260  CM=RAN (3) 

3270  IF  CM=2  THEN  3300 
3280  CALL  HCHAR (13,28,32) 

3290  RETURN 

3300  CAl_L  HCHAR  (13, 28, 112) 

3310  RETURN 
3320  REM  SPRUZZO 
3330  CALL  HCHAR (R, C, 1 17) 

3340  CALL  HCHAR (R+l , C, 107) 

3350  CALL  SOUND (500, -5, 0) 

3360  REM 

3370  CALL  HCHAR (4, 1 , 40, 96) 

3380  RM=RAN (5) 

3390  ON  RM  GOTO  3400,3420,3440,3460,3480 
3400  M$=,,SIETE  ( CAPACE  ( D I  ( NUOTARE  (?(<(<<“ 

3410  GOTO  3490 

3420  M$=“PREGO (NON (VI (BAGNATE <(<(<(<(((<“ 
3430  GOTO  3490 

3440  M$="  ( (FATICOSO (STARE (A (GALLA (?( ( ( ( (" 
3450  GOTO  3490 

3460  M$="SULLA (TARTARUGA (NON (SUL (PESCE ( (" 
3470  GOTO  3490 

3480  M$= "NON (AVETE (TEMPO (PER ( REMARE ( ( ( ( (" 
3490  Z=4 
3500  V=1 
3510  GOSUB  4150 

3520  M*=“VUOI (GIOCARE (ANCORA (?( ( ( (" 

3530  Z=5 
3540  V=5 
3550  GOSUB  4150 
3560  M$=" ( (PREMI (S(Q(N(((" 

3570  Z=6 
3580  V=9 
3590  GOSUB  4150 
3600  CALL  KEY(0,K,S) 

3610  IF  S=0  THEN 
3620  IF  K=78  THEN 
3630  IF  K=83  THEN  3o40  ELSE  3600 
3640  CALL  HCHAR (6, 1 , 32, 32) 

3650  M$="VUQI  (CAMBIARE  (IL  (LIVELLO  (?(  (  (  ( '* 

3660  Z=4 
3670  V=1 
3680  GOSUB  4150 

3690  M$=" (((((( (PREMI (S (0 (N ((((((((((( " 

3700  Z=5 
3710  V=1 
3720  GOSUB  4150 
3730  CALL  KEY(0,K,S) 

3740  IF  S=0  THEN  3730 
3750  IF  K»78  THEN  3850 
3760  IF  K=83  THEN  3770  ELSE  3730 
3770  Mt""SCEGLI  (IL (LIVELLO (  (  (  (  (1  (2(0(3" 

3780  Z=5 
3790  V=1 
3800  GOSUB  4150 
3810  CALL  KEY (0, K, S) 

3820  IF  S=0  THEN  3810 

3030  IF  (K>48) * (K< 52) THEN  3840  ELSE  3810 
3840  SK=K-48 
3850  REM 

3860  CALL  HCHAR (4, 1 , 32, 96) 

3870  FOR  1=9  TO  24  STEP  5 
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PRIMI 

1  '  Li 0 0 0 00 0 0 0 0 0 L) 0 0 0 □  0  U 0 0 0 Q  0  U  0  Li  0 0 0  0  D  0  u  0  G  Q 0 00 0 0 0 0 0 0 0 0  0 0  0 0  0  C 

SUGO" 

7S 

PR I  NT 

"00 

0000 

00" 

4 

PRIMI 

"00 

FRANCOMPUTER  0000 

0000 

00" 

[j 

PRIMI 

"00 

ooo u  il  ìExas  pittore 

0000 

00" 

ó 

PRIMI 

"00 

00 0 0 U  Li  u 0 0 0 0 0 0 0 0 0 00 0 o  q  o  o  o  o  q  ì: 

>000000.; 

.iOQOOOOGi'Ji 


■fc  -k-  -fc-fr  -k 

*  PAINI  * 
********* 


OOOQGOOOUOQDO" 

7  POR  WAIT=0  TO  300 
a  NE  XI  t‘JA  I  l¬ 
io  REM 
20  REM 
30  REM 
40  REM 
50  REM 
60  REM 

70  REM  1 - 

SO  CALE  CLEAR 
90  CALL  SCREEN (2) 


*  TI -BASIC  * 

BY  RANDQNE  CARLO 


1 00 

CALL 

COLOR ( 

n 

5,5 

) 

110 

CALL 

COLOR ( 

n 

il  il 
•  ?  1 

) 

120 

call 

COLOR ( 

1  6 

ET 

?  ? 

2) 

1 30 

POR  1 

=4  TO 

3 

1 40 

CALL 

COLOR  1 

I, 

10, 

2) 

i  50 

NEX  1 

I 

1  òvJ 

i-GR  b 

=4  TU 

17 

SI 

EP  13 

170 

CALL 

HCbiAK  ’i 

tv 
k  ? 

3  3  A 

8,29) 

ISO 

NE  XI 

R 

190 

POR  il 

=3  IO 

31 

-»  i 

EP  28 

Z  V  U 

CALL 

VCHAR ( 

4, 

C,4 

a ,  14) 

2 1 0 

NEX  r 

c 

220 

CALL 

CHAR  (  1 

59 

FOFOFO 

230 

CALL 

CHAR ( 1 

59 

,  "F 

OFOFOF 

240 

CALL 

HuHAR  1 

'  ? 

ET  .-i 

vJ,  *t 

0 ,  4  ) 

250 

CALL 

HlHaR  ( 

*  ? 

5,4 

0,4) 

260 

CALL 

VCHAR ( 

/ 

'  * 

5?  4 

0,6) 

270 

CALL 

VCHAR ( 

7 

•  ? 

9,40,3) 

280 

CALL 

HCHAR t 

7 
•  ? 

11, 

40,  4) 

290 

CALL 

HCHAR t 

Q 

*  i 

il. 

40,  4  ) 

300 

CALL 

VCHAR ( 

~7 
•  J 

11, 

40,  6) 

310 

CALL 

VCHAR  f» 

~7 

14, 

40, 6) 

320 

CALL 

VCHAR i 

7 

•  j 

i  7, 

40 , 6  ) 

330 

CALL 

HCHAR 

8, 

21, 

40  ) 

340 

CALL 

HCHAR ( 

Q 
•  \ 

40) 

350 

CALL 

VCHAR 

7 

*  j 

20, 

40,6) 

360 

CALL 

VCHAR ( 

■y 

•  n 

2  '.»*  <) 

40 , 6  ) 

370 

CALL 

HCHAR ' 

7 

•  ? 

26, 

40,4) 

380 

CALL 

VCHAR 

w  1 

27, 

158,5) 

390 

CALL 

VCHAR (8, 

28, 

159,5) 

OR  OR  OFOF  0  " 


400  A4= " 1 50SELECTR0N I C  P I GIURE " 


410  GOSUB  2250 

420  CALL  CHAR ( 1 03 , " 3C4299A 1 A 1 99423C " ) 
430  CALL  COLOR (9, S, 1 ) 

440  A$="2108g  BY  CARLO  RANDQNE" 

450  GOSUB  2250 
460  A$=  "  2424< PRESS  .>" 

470  GOSUB  2250 

4S0  CALL  SOUND (200, 400, 1 ) 

490  CALL  KEY  (0,  K,  S) 

500  IP  3=0  THEN  490 
5 1 0  CALL  SOUND ( 200 , 600 , 1 ) 

520  CALL  CLEAR 
530  CALL  SCREEN (5) 


540  FGR  1=1  TO  14 


550  CALL  COLOR (1,2 ,8) 

560  NEXT  I 

570  A$= " 1 002DES I DER I  LE  SPIEGA/ 

580  GUSUB  2250 

590  CALL  SOUND (200, 400, 1) 

600  CALL  KEY  < 0 ,  l< ,  S  ) 

610  IF  S=0  THEN  600 
620  CALL  SOUND (200, 600, 1) 

630  Ih  K=89  THEN  640  ELSE  790 

640  A$=" 1002 

650  GQSUB  2250 

660  POR  1=1  TO  12 

670  READ  Ai 

680  GQSUB  2250 

690  IMEXT  I 


□Ni 


il 


700  DATA  "01 14£PAINT£" , "0303FUNZ10NI  SVOLTE  DAI  TASTI 
SPOSI  AMEN- 11 


"  0503 W 


E,  R, S, D, 


?  Y  r  a 


7Ù11 

. 702CTRL  0  =  F I NE  2003 INIZIA 

IN  BASSO  SULLO" , "2404SCHERMG) .  <PRESS>" 


FFFFFFFFFFFFFFFF") 

OOFFFFFFFFFFFFFF") 


710  DATA  "0707TI  DEL  PENNELLO. ", "09031  =  INTINGERE  IL  PENNELLO %“ 1 103P  =  ALZARE/ 
ABBASSARE  IL  PENN. " 

720  DATA  "  1303H  =  ""HOME"1'  PRESSO  LA  TAVOLO 
730  DATA  " 1502CTRL  1  =  CANCELLARE  IL  DISEGNO 
LMENTE  IL.  PENNELLO  E?  " 

740  DATA  "2204ALZAT0  (""A 
750  CALL  SOUND (200, 400, 1) 

760  CALL  KEY (0, K, S) 

770  IF  S=0  THEN  760 
780  CALL  SOUND (200, 600, 1) 

790  CALL  CLEAR 
800  CALL  COLOR (1,1,2) 

810  CALL  SCREEN (2) 

820  FOR  1=1  TO  14 
830  CALL  CHAK (1*8+32, 

840  CALL  CHAR( 1*8+38, 

850  NEXT  I 
860  FOR  1=2  TQ  15 
870  CALL  COLOR ( I , I +1 , 1 ) 

880  NEXT  I 
890  FOR  C=2  TO  15 
900  CALL  HCHAR ( 24 , C , ( C- i ) *8+38 ) 

910  NEXT  C 

920  A$=" 0078444478504844" 

930  CALL  CHAH (49, Ai) 

940  A  $  = " 0 0 3 C 6 6 5 A 5 A 6 6 3 C 0 0 " 

.950  FOR  1=1  TO  14 
960  CALL  CHAR( 1*8+39, Ai) 

970  NEXT  I 

980  CALL  CFIAR  (  145,  Ai) 

990  Ai=" 0044444444444438" 

1000  CALL  CHAR ( 50 , Ai ) 

1 0 1 0  A$=" 003844447C444444 " 

1020  CALL  CHAR (51, Ai) 

1 030  Ai = " 0078242438242478 " 

1040  CALL  CHAR (52, At) 

1 050  CALL  CHAR ( 89 , " 0ÙFF8 1 B 1 8 1 8 1 8 1 FF "  i 
1 060  CALL  HCHAR (24,18,89) 

1070  CALL  HCHAR (24, 19,49) 

1 080  CALL  HCHAR ( 24 , 20 , 50 ) 

1090  CALL  HCHAR (24, 2 1,52) 

1100  CALL  HCHAR (24, 30, 51) 

1110  R=12 
1120  C=16 
1130  C0L.0RE=0 


Harmonie  der  nòrdlichen  Flora  / 
Armonia  della  flora  nordica 
Olio,  canone  con  imprimitura  a 
gesso,  41,5  x  67  cm 
firmato  in  basso  a  destra 
(Inv.  58) 


Bui  Klee 


1140  C0L0REP=16 


1150  STÌ=CHR$ (51) 


1160  CALL  HCHAR (R,C, 145) 

1170  WW=32 

1180  CALL  KEY (0,  K,  S) 

1190  IF  5-0  THEN  1180 
1200  IF  K=87  THEN  1350 
1210  IF  K=69  THEN  1380 
1220  IF  K=82  THEN  1410 
1230  IF  K=83  THEN  1440 
1240  IF  K=63  THEN  1470 
1250  IF  K=90  THEN  1500 
1260  IF  K=aa  THEN  1530 
1270  IF  K=67  THEN  1560 
1280  IF  K=73  THEN  1810 
1290  IF  K=80  THEN  2050 
1300  IF  K= 1 77  THEN  2230 
1310  IF  K=176  THEN  2210 
1320  IF  K=72  THEN  2130 
1330  CALL  SOUND (200, 200, 1) 

1340  GOTO  1180 
1350  R 1 =R- 1 
1360  C1=C-1 
1370  GOTO  1580 
1380  R1=R-1 
1390  C1=C 
1400  GOTO  1580 
1410  R1=R-1 
1420  C1=C+1 
1430  GOTO  1580 
1440  R1=R 
1450  C1=C-1 
1460  GOTO  1580 
1470  R 1 =R 
1480  C1=C+1 
1490  GOTO  1580 
1 50u  F;  1  =R+ 1 
1510  C1=C-1 
1520  GOTO  1580 
1530  R1=R+1 
1540  C1=C 
1550  GOTO  1580 
1560  R1=R+1 
1570  C1=C+1 

,1580  IF  R 1 < 1  THEN  1590  ELSE  1610 
1590  Rl=l 
1600  C1=C 

1610  IF  CKl  THEN  1620  ELSE  1640 
1620  Cl=l 
1630  R1=R 

1640  IF  CI >32  THEN  1650  ELSE  1670 
1650  CI =32 
1660  R 1 -R 

1670  IF  RI >23  THEN  1680  ELSE  1700 
1680  Rl=23 
1690  C1=C 

1700  IF  ST$=CHR$ (51 ) THEN  1760 
1710  IF  C0L0RE=0  THEN  1760 
1720  CALL  HCHAR(R,C, (CGLQRE-2) *8+32) 
1730  CALL  GCHAR (RI ,  CI , WW) 

1740  CALL  HCHAR (  R 1 ,  C 1 , ( CQLQREP-2 ) *8+39 ) 

1750  GOTO  1780 

1760  CALL  HCHAR (R, C, WW) 


1770  GOTO  1730 
1780  R=R1 
1790  C=C1 
1800  GOTO  1180 

1810  IF  RI >=23  THEN  1820  ELSE  2010 

1820  IF  Cl=l  THEN  1890 

1830  IF  C 1 = 1 6  THEN  1890 

1840  IF  C 1 = 1 7  THEN  1890 

1850  FOR  0=19  TO  32 

1860  IF  CI =9  THEN  1890 

1870  NEXT  V 

1880  GOTO  1910 

1890  RI =23 

1900  GOTO  2010 

1910  IF  C 1 = 1 3  THEN  1920  ELSE  1960 
1920  C0L0RE=2. 75 
1930  CQL0REP=8. 25 

1940  CALL  HCHAR (RI ,  CI , (CQLQREP-2) *8+39) 
1950  GOTO  2030 
1960  COLORE=Ci+l 
1970  COLOREP=COLORE 

1980  CALL  HCHAR (RI, Cl, (COLQREP-2) *8+39) 

1990  RI =23 

2000  GOTO  2030 

20 1 0  CALL  SOUND ( 200 , 200 , 1 ) 

2020  GOTO  2040 

2030  CALL  SOUND ( 200 ,400,1) 

2040  GOTO  USO 

2050  IF  ST$=CHR$ (51 ) THEN  2060  ELSE  2080 
2060  ST$=CHR$(52) 

2070  GOTO  2090 
2080  ST$=CHR$ (51 ) 

2090  A$="2430"S<ST$ 

2100  GOSUB  2250 

2110  CALL  SOUND ( 200 , 500 , 1 ) 

2120  GOTO  1180 
2130  RI =23 
2140  Cl=9 

2150  IF  ST$=CHR$ (52) THEN  2160  ELSE  2190 
2160  ST$=CHR$ (51 ) 

2170  A$=,I2430“&ST$ 

2180  GOSUB  2250 
2 1 90  CALL  SOUND  < 200 ,500,1) 

2200  GOTO  1700 
2210  CALL  CLEAR 
2220  END 

2230  CALL  HCHAR ( 1 , 1 , 32, 736) 

2240  GOTO  1100 

2250  REM  SBR  F'RINT  -AT 

2260  R I  =OAL.  ( SEG$ ( A$ ,  1,2)  ) 

2270  CO=OAL.  (  SEG$  ( A$ , 3 , 2 ) ) 

2280  FOR  L=5  TO  LEN (A$) 

2290  A=ASC ( SEG$ ( A$ , L , 1 ) ) 

2300  CALL  HCHAR (RI, CO, A, 1) 

2310  C0=C0+1 
2320  NEXT  L 
2330  RETURN 


CALCOLO  DELL 'UTILIZZO  DELLA  MEMORIA  NELLA  GESTIONE  DATI 


Cari  Texani  veglio  portarvi  a  conoscenza  questa  mia  piccola 
scoperta  che  Vi  sarà  molto  utile  per  non  cadere  nella  trap¬ 
pola  del  Memory  full  in  XX. 

Facciamo  un  esempio  molto  pratico,  abbiamo  fatto  un  program¬ 
ma  tipo  archivio  indirizzi  o  agenda  telefonica,  con  DIM  (100) 
cioè  vogliamo  utilizzare  100  indirizzi.  Allora  poniamo  di  avere 
i  seguenti  file  ..  DIM  A^(IOO)  ,B^(I00)  ,C£(I00)  ,D^(I00}  ,Ef(40a) 
con  i  rispettivi  IMFUT  A^(X)  ecc.  Cominciamo  a  fare  i  calcoli. 
Prima  di  tutto  è  consigliabile  fare  Resequence,  pd  con  la  for¬ 
mula  4  Z=Z+9  2  GOSUB  t  ed  RUN,  attendere  un  po',  apparirà 

Memory  full  in  4,  allora  fate  semplicemente  senza  num.  file 
PRINT  Z  ed  enter,  apparirà  un  dato  numerico,  questo  dato 
è  la  memoria  che  potete  utilizzare.  Scrivetelo  da  parte  e  can¬ 
cellate  i  file  I  e  2.  Peniamo  che  sia  uscito  6000,  vuol  dire 
che  il  programma  che  state  usando  occupa  più  di  10.000  Byte. 

Bene,  allora  ci  domandiamo,  quanti  caratteri  posso  usare  nel 
mio  indirizza  da  5  imput  ?  Basta  fare  6000  divise  100  =  60, 
queste  è  il  valore  dei  caratteri  che  possiamo  usare •(  Per  essere 
più  precisi  bisogna  fare  6000  diviso  (tOO  per  5 (num.  dim)  e  diviso 
$  (num.  imput)), così  si  ha  il  valore  di  ogni  singola  imput). 

Adesso  che  sappiamo  quanti  caratteri  possiamo  usare  (attenzione 
,  bisogna  calcolare  anche  gli  spazi,  i  punti  ecc.)  possiamo  mettere 
nei  file  del  programma  l'ordine  di  calcolare  tutti  i  caratteri 
che  ho  dato  nel  mio  indirizzo.  Queste  le  possiamo  mettere  subito 
dopo  l'ultimo  imput  o  ^rima  del  file  di  controllo  tipo  VA  BENE 
(S/N).  File  ...  Print  "LUNG.  MAX  RECORD  =  "  ;  len(A^(X)&B^(X)'& 
C^(X)&D^(X)&STR^(E) ) . 

Se  inveoe  siete  dei  distratti  potete  mettere  l'ordine  di  non 
accettare  questo  indirizzo  mettendo  subito  dopo  IF  LEN  (,...) 
maggiore  60  THEN  ....  file  del  primo  imput. 

Se  invece  volete  sapere  quanti  indirizzi  posso  usare  con  questo 
programma  avendo  bisogno  di  80  caratteri,  si  fa  6000  diviso  80 
e  ti  ha  75  indirizzi),  quindi  cambiate  i  valori  in  BIM  da  100  a 
75  poi  rifate  il  calcolo  della  capacità  di  memoria,  poniamo  che 
esca  7000,  quindi  rifate  il  calcolo  7000  divìso  80  =  87  indirizzi 
cambiate  di  nuove  la  BIM  da  75  a  80  e  così  via  finché  non  ottenete 
il  massimo  valore  di  BIM  con  i  Vostri  80  caratteri. 

Buon  lavoro,  e  soprattutto  fat€~  delle  prove  di  conferma  su  questa 
piccola  scoperta. 

PS.  ATTENZIONE  se  nel  calcolo  della  memoria  appare  NAME  CONFLICT 
vuol  dire  che  dovete  cambiare  la  variabile  Z  perchè  è  usata  iù 
qualche  DIM  del  Vostro  programma. 


» 


330  CALL  KE Y  ( 0,  X , ST )  :  :  IF  ST  =  0  THEN 
CflLL  HCHAR ( ROW , 6 ,  32 )  :  :  ROW=ROW 
-U  :  :  IF  R0W<5  THEN  400  ELSE  33 
0 

340  IF  (  X  =  69  )  *  <  A  )  THEN  CALL  PATTERN  ( 

412 , 32 ,46,43)  :  I  V  <  T  >  =0  :  i  A  -  0  :: 
GOTO  390 

!  350  IF  (  X  =  6B>  *  <B>  THEN  CALL  PftTliTRRf  | 

#3, 32,  46,  43)  :  :  V(T)  =  1  ::  B  -  H  j 

GOTO  390  i 

360  IF  ( X=8B) * (C) THEN  CALL  PAltLKNf 
«  4 , 3  2  ,  4  6 , 4  3  >  :  :  V  (  T  >  -  2  ss  C  ”  O  :  : 
GOTO  390 

370  IF  ( X=B3) * (D) THEN  CALL  PATTERN ( 

#5, 32, «6, 43) t :  V(T>=3  ::  D-0  :: 

GOTO  390 

- -  -  -  -  -  i 

^  SOUBRUTINE  PER  LA  TASTIERA  ~~ ' 


Program  4:  Alpha  Blast-Tl-99/4A 

Extended  BASIC  Version  by  Pat  Parrlsh,  Programmlng 
Supervisor 

100  GOSUB  510 
110  RANDOMIZE 
120  D I M  N  <  3 ) 

130  CALL  CLEAR  ::  CALL  SCREEN<16> 

1  4.0  CALL  HCHAR  (8, 5,  120, 24)  :  s  DISPLA 
Y  AT  <10,4)  :  "A  L  R  H  A  —  B  L  A 
S  T“  ::  CALL  HCH AR ( 1 2 , 5 , 1 20 , 24 ) 
150  CALL  MAGNIFY <2)  :  :  FOR  L= 1  TO  28 
160  CALL  SPR I  TE  (4L ,  INT <RND*26> +65,  I 
NT(RND*13)+3,  INT<RND*24>  «8+1,  IN 
T (RND*32) *8+1, INT(RND*60>-30, IN 
T  (  RND  >  60 ) -30) 

170  IF  L  =  25  THEN  DISPLAY  AT(21,10); 

*■  GET  READY!" 

180  NE  X  T  L  :  :  CALL  DELSPR l TE ( ALL ) s s 
CALL  CLEAR  :  :  HS  =  0 
190  CALL  COLOR ( 12, 6, 1 ) 

200  DISPLAY  AT  (  1 , 6)  :  HI  GH  SCOREs“;H 
S  :  :  U  =  0  :  :  R  =  0  :  :  SC  =  0 
210  U  =  U+. 03*SGN < 1-U)  :  :  R  =  R+1  ss  DIS 

PLAY  AT ( 5 , 1 4 ) : " ROUND  4 “ ; R  ss  DI 
SPLAY  AT (2, 6) s "SCORE! 

■ =;  11  •  SC 

220  FOR  1=6  TO  21  ss  CALL  HCHAR  (  I , 6 

,  128)  s  s  NE  X  T  I 

230  FOR  1=5  TO  7  STEP  2  ss  CALL  VCH 

AR (5,  I , 95,  17)  s  s  NE  X  T  I 
240  FOR  1=3  TO  9  STEP  6  ss  CALL  VCH 

AR (4,  I ,  120, 20)  s  s  NE  X  T  I  ss  CALL 


E*  BUSI  C 


HCHAR (4, 4, 120, 5) i i  CALL  HCHAR ( 
23,4, 120,5) 

250  FOR  1=0  TO  3 
260  N( I ) =INT ( RND  *  26 ) +65 
270  FOR  J=0  TO  1-1  ss  IF  N(J)»N(I)T 
HEN  260 

280  NE  X  T  J  s  s  NE  X  T  I 

290  CALL  SPRI TE (#6, 42, 3, 97, 153) 

300  CALL  SPRI TE (#2, N (0) , 14, 57, 153) » 
s  CALL  SPRITE  (#3, N ( 1 )  ,  14, 97, 201 
)  s  s  CALL  SPRITE (#4, N(2)  ,  14,  137, 

15  3)  s  s  CALL  SPRITE (#5, N < 3)  ,  14, 9 
7, 105) 

310  R0W=2 1  ss  A= - 1  ss  B= - 1  si  C=-l 
s  s  D  =  -l 

320  T  =  0 _ 

330  CALL  JOYST ( 1 , X , Y) s s  IF  ABS(X)+A  T 
BS(Y)<>4  THEN  CALL  HCHAR(R0W,6, 

32) ss  ROW=ROW-U  s:  IF  R0W<5  THE 
N  400  ELSE  330 

340  IF  ( X=0) * ( Y=4) * (A) THEN  CALL  PAT 
TERN (#2, 32, #6, 43) s s  V<T>=0  ss  A 
=  0  s  s  GOTO  390 

350  IF  < X=4> * <Y=0> « <B> THEN  CALL  PAT 
TERN (43, 32, #6, 43) s s  V(T)=1  ss  B 
=  0  s  s  GOTO  390 

360  IF  (  X  =  0)  *  ( Y  =  -4>  *  (C) THEN  CALL  PA 
TTERN <44, 32, #6, 43) s s  V(T)=2  ss 
C  =  0  s  s  GOTO  390 

370  IF  (X=-4) * (Y=0) * (D) THEN  CALL  PA 
TTERN < 45, 32, 46, 43) s s  V(T)=3  ss 
D  =  0  s  s  GOTO  390 

380  CALL  HCHAR (ROW, 6, 32) s s  RQW=ROW- 
U  ss  IF  R0W<5  THEN  400  ELSE  330 
390  CALL  SOUND ( -10, 200, 2) s s  CALL  PA 
TTERN (46, 42) s s  T  =  T+1  si  IF  T=4 
THEN  450  ELSE  330 

400  DISPLAY  AT (22,  1  1  )  l  " YOUR  TIME  IS 
UP  !  " 

410  CALL  SOUND (800, 1 10, 5, 120, 5) : s  F 
OR  1=1  TO  200  ss  NEXT  I 
420  DISPLAY  AT ( 24 , 1 0) s "PLAY  AGAINtY 
/ N ) ? "  ss  IF  SC  >HS  THEN  HS  =  SC 
430  CALL  KEY <0, KEY, ST) s :  IF  ST=0  TH 
EN  430 

440  IF  (KEY=B9) + (KEY=121 ) THEN  CALL 
CLEAR  ss  CALL  DELSPR I  TE ( ALL )  s  s 
GOTO  200  ELSE  S60 

450  REM  EVALUATE  ANSMERS 
460  FOR  T  =  0  TO  2  ss  IF  NIVITJXNIVt 
T  +  l  )  > THEN  480 

470  SC=SC-INT < 1 . 5*R*R0W) s s  GOTO  490 
480  SC=SC+INT <R*ROW) 

490  NEXT  T 

500  CALL  DELSPRITE ( ALL) s s  GOTO  210 

510  REM  CHAR 

520  CALL  COLOR ( 14, 9, 1 ) 

530  CALL  CHAR ( 120, "007E7E7E7E7E7E00 
“ ) s s  CALL  CHAR ( 128 , " “ ) 

540  CALL  COLOR ( 12, 6, 10) s s  CALL  COLO 
R ( 13, 1 , 9) 

550  RETURN 
560  END 


10000 
10010 
1 0020 
10030 
10040 
10050 
1 0060 
10070 
10000 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10100 
10190 


SU&ROOilttt  SFOttùO 


SUB  SFONDO (TP, C) 

DIM  At (32) :  :  CALL  MAGNIFY (4) 

IF  V=0  THEN  V=1  ::  GOTO  11090 
QN  TP  GOTO  10040, 10100, 10110, 10120, 10130, 10140, 10150, 10160, 10170, 10100 
RESTOSE  10190 

FQR  1=21  TO  20  ::  CAR=20+4*I 
READ  RI , IND  ::  CALL  CHAR (CAR, A$ ( IND) ) 

CALL  SPRITE (£1, CAR, C,RI+0, 32*1-671) 

NEXT  I 


RI=65+RI*32 


SUBEXIT 

RESTORE 

RESTORE 

RESTORE 

RESTOSE 

RESTORE 

RESTORE 

RESTORE 

RESTORE 

RESTORE 

REM*TIPQ 


10200 
10370 
10460 
10550 
10640 
10730 
10020 
10910 
11000 
1* 


GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 


1 0050 
10050 
10050 
10050 
10050 
10050 
10050 
10050 
10050 


10200 

DATA 

2,1 

10670 

DATA 

3,23 

10210 

DATA 

1,2 

10600 

DATA 

3,24 

10220 

DATA 

2,3 

10690 

DATA 

2,7 

10230 

DATA 

3,4 

10700 

DATA 

1,2 

10240 

DATA 

0  j  J 

10710 

DATA 

1,25 

10250 

DATA 

3,  6 

10720 

DATA 

2,  3 

10260 

DATA 

2,7 

10730 

REM*TIPO  7* 

10270 

DATA 

1,0 

10740 

DATA 

3,4 

10200 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10300 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 
10470 
10400 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
1 0560 
10570 
10500 
10590 
10600 
10610 
1 0620 
10630 
10640 
10650 
10660 


2.13 
2,  14 

1.13 


REM*TIPO  2* 
DATA  2,7 
DATA  1,2 
DATA  1,9 
DATA  1,10 
DATA  2,3 
DATA  3,4 
DATA  3,11 
DATA  3,12 
REM*TIPO  3* 
DATA 
DATA 
DATA 
DATA  1,15 
DATA  1,10 
DATA  2,3 
DATA  3,16 
DATA  3,17 
REM*TIPQ  4* 
DATA  2,7 
DATA  1,2 
DATA  2, 12 
DATA  1,2 
DATA  2,3 
DATA  3,4 
DATA  3, 10 
DATA  3, 17 
REM*TIP0  5* 


3,26 
17 


1,0 

9  *' 


10750  DATA 
10760  DATA 
10770  DATA  2,13 
10700  DATA  2,14 
10790  DATA  1,0 
10000  DATA 
10010  DATA 
10020  REM* TIPO  0* 
10030  DATA  1,27 
10040  DATA  1,2 
10050  DATA  1,0 
10060  DATA  2,20 
10070  DATA  2,29 
10000  DATA  3,4 
10090  DATA  3,24 
10900  DATA  2,7 
10910  REM*TIPQ  9* 
10920  DATA  2,3 
10930  DATA  3.12 


10940  DATA  2,2 
10950  DATA  3,4 
10960  DATA  3,21 
10970  DATA  2,7 
10900  DATA  1,27 
10990  DATA  1,0 
11000  REM*TIPO  10* 

11010  DATA  1,2 
11020  DATA  1,31 
11030  DATA  2,19 
11040  DATA  2,20 
11050  DATA  3,4 
11060  DATA  3,32 
11070  DATA  3,17 
11000  DATA  2,7 
11090  REM  *CARICAMENTO  STRINGHE* 
11100  RESTOSE  11150 
11110  FQR  1=1  TO  32 
11120  READ  B*  ::  A$ (I ) =B* 

11130  NEXT  I 
11140  GOTO  10030 


EX 

6  ASIC 


a* 

il  A  (4  tsQhiì- 
Carlo 


DATA 

DATA 


1,2 

1,9 


DATA  1,10 
DATA  2,19 
DATA  2,20 
DATA  3,4 
DATA  3,21 
DATA  2,7 
REM*TIPO  6* 
DATA  3,12 
DATA  2,22 
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"  PIXEL" 


flfuUOiJfr.  CAdLa 
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1  CALL  CLEAR 

2  CALL  SCREEN (2) 

3  FOR  1=1  TO  14 

4  CALL  COLOR (I, 1+2, 1) 

5  NEXT  I 

6  DX=6*3. 14/256 

7  FOR  C=80  TO  165 

8  B=B+DX 

<?  R=INT(96-SIN(B)*35+.5)  . 

10  GOSUB  ÌOOOO 

11  NEXT  C 

12  R=96 

13  FOR  C=80  TO  165 

14  GOSUB  10000 

15  NEXT  C 

16  FOR  R=80  TO  135 

17  C=R+46 

18  GOSUB  10000 

19  NEXT  R 

20  CALL  SOUND (1000, 200, 1) 

21  GOTO  21 

"lOÒOO  REH  «SUBRQUTINE.  "PIXEL". RIGA  IN  R,  COLONNA  IN  C. 

J0010  IF  VOO  THEN  10130 

10020  CALL  CLEAR 

10030  OPTION  BASE  0 

10040  DIM  HEX* ( 15) , X* ( 15) , SC$ (159) 

10050  CARZ=32 
10060  V=1 

10070  RESTORE  10110 
10080  FOR  1=0  TO  15 
10090  READ  HEX* ( I ) , X*  (  I  ) 

10100  NEXT  I 

Ì0110  DATA  0000,0,0001, 1,0010,2,0011,3,0100,4,0101,5,0110,6,0111,7 
10120  DATA  1000,8, 1001,9, 1010, A, 101 1 , 8, 1 100, C, 1 101 , D, 1 1 10, E, 1 1 1 1 , F 
10130" RI=INT (R/8+. 9) 

10140  CO=INT (C/8+.  9) 

10150  P=C-4* ( INT (C/4+. 9) -1 ) 

10160  E=2*(R-8*RI+7) +INT (C/8-CQ+2. 4) 

10170  CALL  GCHAR (RI , CO, CAR) 

10180  IF  CAR032  THEN  10220 
10190  CARZ=CARZ+1 
10200  CAR=CARZ 

10210  SC* ( CAR ) = " 0000000000000000 " 

1 0220  Z*=SEG* ( SC* ( CAR  > , E , 1 ) 

10230  IF  ASC (Z*) >57  THEN  10240  ELSE  10260 
10240  V*=HEX* (ASC (  Z*) -55) 

10250  GOTO  10270 
10260  V*=HEX* (VAL (Z*)  ) 


10270  V*=SEG$ (V*, 1 , P-l )  &" 1 "&SEG* (V*, P+l , 4-P) 

10280  Z*=X*(VAL(SEG* (V*, 1, 1) ) *8+VAL (SEG* ( V$, 2, 1) ) *4+VAL (SEG* (V*, 3, 1) ) *2+VAL (SEG* 
(V*,4, 1) ) ) 

10290  SC* <CAR)=SEG*(SC*(CAR)  ,  1 ,  E-l  )  S<Z*3<SEG*  (SC*  (CAR)  ,  E+l ,  16-E) 

10300  CALL  CHAR ( CAR , SC* ( CAR ) ) 

10310  CALL  HCHAR (RI , CO, CAR) 

10320  RETURN 


DESCRIZIONE  DEL  PUOGRAHMA-SUBROUTINE  "PIXEL"1(in  TI--BASIC)^| 

Si  tratta  di  una  subroutine  in  TI -BASIC  (residente  in  consolle), 
con  la  quale  è  possibile  sfruttare  la  massima  risoluzione  grafi¬ 
ca  del  TI-99  (192  righe  per  256  colonne). 

Quando  in  R  sia  contenuta  la  riga  (intero  compreso  tra  1  e  192),  ed 
in  C  la  colonna  (intero  compreso  tra  1  e  256),  con  un  GOSUB  10000 
si  effettua  1'  "accensione"  di  un  pixel  alla  riga  ed  alla  colonna 
specificate.  La  subroutine  verifica  alle  2  seguenti  fondamentali 
condizioni s 

1-  I  punti  sono  accessibili  senza  soluzione  di  continuità,  ossia 
uno  di  seguito  all'altro,  sznza  salti  od  interruzioni  ; 

2-  Il  plottaggio  di  un  punto  all’interno  di  un  carattere  (ma¬ 
trice  8  per  8)  NON  DISTRUGGE  0  FALSA  L'INFORMAZIONE  CHE  VI  ERA 
PRECEDENTEMENTE  CONTENUTA. 

E'  necessario  che  prima  di  ogni  chiamata  della  subroutine  (con  un 
semplice  GOSUB  10000),  in  R  sia  contenuto  il  valore  della  riga  ed 
in  C  quello  della  colonna  a  cui  si  vuole  attivare  il  pixel. 
AVVERTENZE _ 

a)  La  subroutine  contiene  un  OPTION  BASE  fi  ed  un  RESTORE  10100  s  at 
tenzione  ad  eventuali  ine ompat Abilità  con  il  programma  principa¬ 
le  ; 

b)  Il  programma  si  blocca  se  si  tenta  di  ridefinire  un  carattere  di 
codice  superiore  a  159»  in  quanto  il  TI-BASIC  consente  la  ri¬ 
definizione  dei  caratteri  solo  fino  al  159°.  Il  contatore  CARZ 
all'interno  della  subroutine  non  dovrà  quindi  superare  il  valore 
di  159. 

c)  In  quanto  la  subroutine  ridefinisce  il  set  di  caratteri,  non  è 
possibile  miscelare,  se  non  parzialmente,  testo  e  grafica. 

d)  Non  utilizzare  nel  programma  principale  le  seguenti  variabili  ; 

i  ,  v  ,  binato  ,  xpf()  ,  sc^r()  ,  carz  ,  ri  ,  co  ,  p  ,  e  ,  car  , 
v#  ,  z#  . 

Con  tale  subroutine  è  possibile  realizzare  ottimi  disegni  in  alta  ri 
soluzione  (e  grafici  di  funzioni),  con  una  velocità  di  tracciatura 
non  eccessivamente  ridotta. 


?l/fl  '/tl&Cli JlMO 

_  k/.G. 

5  CALL  CLEAR 

IO  ACCEPT  AT (23, 1 ) :  X  ::  ACCEPT  AT(24,1):Y 
20  CALL  PIXEL ( Y, X ) :  :  GOTO  10  1 

100Ò0  SUB  PIXEL  (X ,  Y)  :  :  Y=INT < Y+0. 5) :  :  X=INT(X+0.5) 

10010  IF  ACO  THEN  10060 

10020  DIM  HEX$ (22) :  :  FOR  A=48  TG  57  ::  HEX$ ( A— 46 ) =CHR$ (A) :  :  NEXT  A  ::  FOF:  A=65  T 
0  70  ::  HE  X  $  ( A-55 ) =CHR$ ( A ) :  :  NEXT  A 

10030  DIM  NU (24)  :  :  FOR  A=4S  TO  57  ::  NU (A-48)  =A-4S  ::  NEXT  A  ::  FOR  A=65  TO  70 
:  NU (  A-48) =A-55  :  :  NEXT  A 

10040  DIM  P (8, 2) :  :  FOR  A=0  TO  7  ::  P (A+l , 1 > =A*2+1  ::  P (A+l , 2) =A*2+2  ::  NEXT  A 
10050  DIM  B (4) :  :  BIN(4)  =  1  ::  BIN(3)=2  ::  BIN(2)=4  ::  BIN(1)=B 

10060  Y1=INT( (Y-0. l)/8)+l  ::  X1  =  INT ( ( X-0. 1 ) /8)  +  1  ::  CALL  GCHAR (Y1 , XI , CR) :  :  IF  CR 
=31  THEN  CR=32 

10070  CALL  CHARPAT (CR, Cl) :  :  Y2=Y- (Y 1-1 ) #8  ::  X3=X- ( INT ( ( X-0. 1 ) /4) ) *4  ::  X2=1-(X- 
INT ( (X-0. 1 ) /8) #8>4) 

10080  IF  CR=32  THEN  CAR=CAR+1  ::  CR=33+CAR 

10090  C$=SEG$(C$, l,P(Y2,X2)-l)*cHEX$(NU(ASC(SEG*(C*,P(Y2,  X2) , 1) )-4S)0R  BIN(X3) ) &S 
EG$ (C4,P(Y2, X2)+l , 17-P(Y2, X2) ) 

10100  CALL  CHAR(CR,C$) :  :  CALL  HCHAR ( Y1 ,  XI ,  CR)  :  :  SUBEND 
10110  SUB  LINE(Y1,X1,Y2,X2) 

10120  IF  ABS ( X 1-X2) <ABS (Y1-Y2) THEN  10150 

10130  M= (Y1-Y2) / (X1-X2) :  :  Q=Y1-(Y1-Y2) *X1/ (X1-X2) 

10140  FOR  X=X1  TO  X2  ::  CALL  PIXEL(X,M*X+Q)  :  :  NEXT  X  ::  SUBEXIT 
10150  M= (X1-X2) / (Y1-Y2) :  :  Q=X1-(X1-X2) *Y1/ (Y1-Y2) 

10160  FOR  X=Y 1  TO  Y2  ::  CALL  PIXEL (M*X+Q,  X ): :  NEXT  X 
10170  SUBEND 
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MEMORIA  32K 


La  MEMORIA  32K  aumenta  la  capacita*  del  T. I.99/4A  grazie  ad  un 
supplemento  a  32K  bytss  (RAM)  di  memoria  ed  accesso  Random 
dinamico.  La  MEMORIA  32K  e’  stata  creata  per  essere  usata  con 
l'Extended  Basic,  l’Editor  Assembler,  il  T.  I.  Logo,  o  qualsiasi 
altro  modulo  che  richieda  questa  "memoria  estesa". 


Il  connettore  collegato  grettamente  alla  consolle  T.  I. , 
la,  necessita’  del  T.  I.  PERIPHERAL  EXPANSION  BOX. 


elimina 


La  tecnica  costruttiva  permette  l'uso  di  altre  periferiche  per  il 
T. I.,  .  attraverso  il  connettore  passante  inserito  nella  MEMORIA 


INTERFACCIA  232 

QUESTA  INTERFACCIA  ESTERNA  (  COLLEGABILE  ALL'ENTRATA  DESTRA  DEL 
VOSTRO  TI  99)  PERMETTE  DI  COLLEG ARSI  CON  UNA  QUALSIASI  ST AMP AN  = 
TE  PARALLELA  ELIMINANDO  COSI'  LA  NECESSITA  DI  ACQUISTARE  IL  BOX 
DELLE  PERIFERICHE. 

LA  TECNICA  COSTRUTTIVA  PERMETTE  L'USO  DI  ALTRE  PERIFERICHE  PER 
IL  TI  QUALI  LA  ESPANSIONE  32  K,  IL  SINTETIZZATORE  ETC  ETC. 


LOGO  E'  UNA 
SSS  CHE  VA 
USATA  CON  LA 
ESPANSIONE 
DI  32  K.  0 
ESTERNA  CO¬ 
ME  QUELLA 
SOPRA  0  CON 
LA  SCHEDA 
32  K  DEL 
BOX. 


Clw  co»  è  il  LOGO _ 

Jl  LOGO,  in  t<ni»o  slrcllo.  è  il  primo 
luiguaggioper  calcolatori  scièrihUcaincnlc 
concepito  per  favorire  l'apprendimento 
Spontàneo,  lo Stc&to  tipo  di  apprendimeli. 
là  dei  bambini  ette  imparano  à  camminare 
o»  parlare.  Quindi  U  Ludo  é  un  linguag¬ 
gio  adatto  sia  per  i  bambini  che  per  gli 
adulti  che  vogliono  avvicinarsi  al  pensiero 
costruttivo  che  sta  alla  base  della  program¬ 
mazione  nei  calcolatori. 

"ili  iincimflaU).  PIÙ  che  un  linguali1  l’io  il 
LOGO  deve  essere  considerato  un  ambicn- 
Ic,  una  filosofia  educativa,  basala  su  dei 
^borato»  per  la  conoscenza**  dove  la. 
gente  può  impalare  a  pensare.  La  filosofia 
del  LOGO,  come  Quella  dell'intelligenza 
artificiale  c  delia  scienza  cognitiva,  assume 
quindi  che  l'informatica  abbia  un  ruolo 
centrale  nello  sviluppo  del  pensiero,  tcori- 
tp  e  pratico.  dclTcU  posUnodcriuE~Ma 
rappresenta  alleile,  'potenzialmente,  un 
ponte  tra  le  famose  due  culture:  la  cultura 
umanistica,  legala  al  linguaggio  c  alle  sue 
manifestazioni,  e  quella  scientifica,  legala 
ai  fatti  c  alla  loro  verìfica  c  riproduzione. 

Come  le  leggi  del  pensiero  superano  i 
confini  rappresentati  dalle  lingue  e  dai  lin¬ 
guaggi.  naturali  c  artificiali,  cosi  il  LOGO 


appare  come  uno  strumento  di  tipo  parti¬ 
colarmente  universale.  Non  aoilnnlo  sulla 
carta,  si  badi  bene:  il  LOOO  è  infitti  fià 
servito  per  alcuni  esperimenti  con  bambini 
ed  adulti  di  divene  età  e  condizioni  sodili, 
dagli  handicappati,  ai  hamhini  di  ghetti  o 
di  comunità  svantaggiale.  Dagli  studenti 
di  materie  scientifiche  a  quelli  delle  arti 
liberali.  Il  già  citalo  Centro  Mondiale  per 
l'Informatica  e  le  rìsone  umane  ti  propone 
addirittura,  attraverso  il  LOOO  adattato  a 
diverse  lingue,  di  provare  che  é  possibile 
saltare  a  piè  pari  i  problemi  della  aviltà 
industriale,  portando  un  certo  numero  di 
bambini  appartenenti  a  diverti  villaggi  del 
terzo  mondo  a  superare  un  gap  culturale  di 
diverse  centinaia  di  anni. 

Il  LOGO  è  universale  anche  come  puntò 
di  incontro  di  due  culture. 

GIOIELLI  PEft  II 
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LA  RISPOSTA  ALLA  DOMANDA  CHE  MI  FANNO  TUTTI  I 
PICCOLI  PROGRAMMATORI  CHE  VOGLIONO  SUBITO  C.OS  = 
TRUIRE  I  GIOCHI.  COME  SI  FA  A  FAR  MUOVERE  UN 
CARATTERE  ?  (  in  questo  caso  un  omino) 


CIOÈ'  LA  CALL  KEY 

ECCOVI  ACCONTENTATI  ! 


IOO  CALL  CLEAR 

HO  CALL  CHAR(I29,"I8I8FF3C3C242424") 

120  C=1 

l40  CALL  HCHAR(R,C,129)  FRANCOMPUTER 

150  CALL  KEY(5,C0D,ST)  — 

160  IF  ST=0  THEN  150  ’ 

170  IF  POS(  "ESDX" ,CHRs(COD)  ,l)=0  THEN  150 
ISO  CALL  HCHAR(R,C,32y 

190  C  =  C  -  {COD=83)*(C  >l)  +  (COD  =  68Ì*  (c<'J2.) 

200  R  =  R  —  (COD=69)tf(R  *l)+(COD=88) #  (R<24 ) 

210  GOTO  l40 


LE  DISEQUAZIONI  ALLE  LINEE  190  E  200  SONO  I  LIMITI  ENTRO 
CUI  SI  MUOVE  L'OGGETTO.  IN  QUESTO  CASO  UTILIZZIAMO  TUTTO 
LO  SCHERMO,  INFATTI  1<C<3£  e  1 <  R < 24 .  MA  PER  AREE  PIU' 
PICCOLE  BASTA  MODIFICARE  OPPORTUNAMENTE  I  VALORI. 


1 

2  — 
3 
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8  — 
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L'ANGOLO  DELLO  STUDENTE 


f- 


Qrnesta  programmino  trova  il  punto-  di  intersezione  di  due  rette 
nel  piano  sfruttando  un  sistema  di  equazioni  di  primo  grado 
risolto  col  metodo  di  KRAMER. 


5  CALI  CIBAR 


6 

PRINT 

"STEFANO  BRATOS,  VIA  SOIITRO  1 / 1 ,  TRIESTE" 

7  PRINT 

10 

PRINT 

"PUNTO  DI  INTERSEZIONE 

DI  DUE  RETTE  NEI  PIANO 

20 

PRINT 

25 

PRINT 

"PONI  IE  EQUAZIONI  DEIIE  RETTE  NEIIA 

FORMA 

" " "AX+BY=C 

/  DX+EY=F" " " 

27 

PRINT 

30 

PRINT 

"SCRIVI  I  COEFFICIENTI 

DEIIA  X  E  DEH  A  Y" 

40 

INPUT 

"A=  " :  A 

50 

INPUT 

"B=  "  :  B 

60 

INPUT 

"&=  "  :  C 

70 

INPUT 

"D=  ":D 

80 

INPUT 

"E=  ":E 

90 

INPUT 

!l  J>_  Il  .  J» 

100 

DEITÀ 

=  (A  *  E)  -  ( B*D) 

1 10 

IE  DEITÀ  =  0  THEN  170 

120 

X=(C*E 

-  B#F)  /  DEITÀ 

130 

Y=(A#F 

-  G*D)  /  DEITÀ 

135 

PRINT 

140 

PRINT 

"X=  X 

T50 

PRINT 

"Y=  ":  Y 

160 

GOTO  27 

170 

PRINT 

"NON  ESISTONO  PUNTI  DI 

INTERSEZIONE. 

DEITÀ  = 

180 

GOTO  27 

190 

(END) 

Credo:  comunque  che  programmini  di  questo  genere  siano  molto 
utili  agli  studenti  (quale  io  sono)  per  verificare  o  per  svelti 
re  i  problemi  di  geometria  analitica. 

Ovviamente,  visto  che  tale  programma  dovrebbe  far  parte  di 
un  programma  ben  più  ampio  (infatti  io  lo  considero  come  un 
so tto  programma)  >  andrebbero  eliminati  mólti  PRINT  superflui. 


iOOOO  SUB  CIRCLE (RI, CO, RAGGIO) 

10010  IF  RAGGI 0< 1  OR  RI-RAGGIQ<1  GR  RI+RAGGIG) 192  OR  C0-RAGGIQ<1  OR  C0+RAGGI0>25 
6  THEN  10020  ELSE  10030 

10020  CALL  SOUND <200, 200, 0) :  :  FRI NT  : "  BAD  DATA  IN  CALL  CIRCLE"  ::  END  ::  SUBEXI 
T 

10030  A=-2*C0  ::  B=-2*RI  ::  C=CQ  2+R I  2-RAGG I 0  '"2  ::  L=IIMT  (RAGGIO/SQR (2) +. 5) 

10040  FQR  Y=RI-L  TO  RI+L 
}0050  DIS=SQR(A/'2-4*(Y"  2+B*Y+C)  ) 

10060  Xl= (-A+DIS) /2  ::  X2= (-A-DIS) 12 
10070  CALL  PIXEL ( INT ( Y+. 5) , INT (X1+. 5) 

10080  NEXT  Y 

10090  FOR  X=CO-L  TO  CO+L 
10100  DIS*SQR  (B,/'2-4*  (  X  '2+A*X+C)  ) 

10110  Yl=(-B+DIS)/2  ::  Y2= (-B-DIS) /2 
10120  CALL  PIXEL (INT(Yl+.5),INT(X+.5) 

Ì0130  NEXT  X 
10140  SUBEND 

10150  SUB  TRA IL ( Y 1 , X 1 , Y2 , X2 ) 

10160  A=1 

10170  IF  X 1 < 1  OR  X 1 >256  OR  Y 1 < 1  OR  Y1 >192  OR  X2< 1  OR  X2>256  OR  Y2<1  OR  Y2>192  TH 
EN  10180  ELSE  10190 


>::  CALL  PI XEL ( INT < Y+. 5 ) , INT < X2+. 5) ) 

CRU  CIRCIEÌ 

C 

CALL  PIXEL ( INT (Y2+. 5) , INT <X+. 5) ) 


10180  CALL  SOUND (200, 200, 0) :  :  PRINT 
10190  IF  X  1=X2  AND  Y1=Y2  THEN  10380 
10200  IF  Y1=Y2  THEN  10400  * 

10210  IF  X1=X2  THEN  10450  » 

10220  M= (Y2-Y1 ) / (X2-X1 ) :  :  N=Y1-M*X1 
10230  PX=ABS ( X2-X 1 ) 

10240  PY=ABS (Y2-Y 1 ) 

10250  IF  PX>=PY  THEN  10320 
10260  IF  Y2<5Y1  THEN  A--1 
10270  FOR  Y=Y1  TO  Y2  STEP  A 
10280  X=(Y-N)/M 

10290  CALL  PIXEL ( INT ( Y+. 5) , INT ( X+. 5) ) 
10300  NEXT  Y 
10310  SUBEXIT 
10320  IF  X2< X 1  THEN  A=-l 
10330' FOR ~X=X1  TO  X2  STEP  A 
}0340  Y=M*X+N 
10350  CALL  PIXEL ( INT ( Y+. 5) , INT (X+. 5) ) 
10360  NEXT  X 
10370  SUBEXIT 

10380  CALL  PIXEL (INT ( Y1+. 5) , INT (X1+. 5) ) 

10390  SUBEXIT 

10400  IF  X2< X 1  THEN  A=-l 

10410  FQR  X=X1  TO  X2  STEP  A 

10420  CALL  PIXEL (INT ( Y1+. 5) , INT (X+. 5) ) 

10430  NEXT  X 

10440  SUBEXIT 

10450. IF  Y2<Y1  THEN  A=-l 

10460  FOR  Y=Y 1  TO  Y2  STEP  A 

10470  CALL  P I XEL ( 1 NT ( Y+ . 5 ) , INT (X1+.5) ) 

10480  NEXT  Y 

10490  SUBEND 

10500  SUB  PIXEL (R,C) 

10510  IF  VOO  THEN  10550 
10520  DIM  HEX$ ( 15) , X# ( 15) s : 
s:  NEXT  I  ::  V=1  ::  CAR2=32 


BAD  DATA  IN  CALL  TRAIL"  ::  END  ::  SUBEXIT 


hi 
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ih 
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RESTORE  10530 
::  GOTO  10550 


FOR  1=0  TO  15 


10530  DATA  0000,0,0001 , 1,0010, 2, 0011, 3, 01 00,4, 0101, 5, 01 
10540  DATA  1000, 8, 1001 , 9, 1010, A, 101 1 , B, 1 100, C, 1 101 , D, 1 1 
10550  RI=INT (R/B+. 9) 

10560  C0=INT(C/8+.9) 

10570  P=C-4* ( INT (C/4+. 9) -1 ) 

1 0580  E=2* ( R-S*R I +7 ) + 1  NT ( C/8-C0+2 . 4 ) 

10590  CALL  GCHAR (RI, CO , CAR ) 

10600  CALL  CHARPAT (CAR,A$) 
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SUBBOPTIHE  M  TRAIL 11  (  9ti  linee): 
i soluzione  192  X  256.  Con  una  istruzione  del  tipo  s 

CALI  TRAIL (RI, CltR2,C2)  in  oui  1^11^192 

l-Cl-^256 

1-R2492 

1^C2^256, 

il  TI  99  traccia  un  segmento  (in aalta  rie,)  fra  il  punto  di  coor¬ 
dinato  HI, CI  •  quello  di  coordinato  R2,C2.  Utilizzando  la  Bubrou- 
tino  PIXEL  anche  questo  sott «programma  é  lento,  ma  svolgo  bone  il 
suo  cespite. 

■“ ÈV  P.  A  hi  DO  hit 


10000  SUB  TRAIL (Yl ,  X 1 , Y2, X2) 

10010  A=1 

10020  IF  X 1 < 1  OR  XI >256  OR  Y 1 < 1  OR.  Yl>192  OR  X2<1  OR  X2>256  OR  Y2<1  OR  Y2>19^  TH 
EN  10030  ELSE  10040 

10030  CALL  SOUND (200, 200,0)::  PRINT  :"  BAD  DATA  IN  CALL  TRAIL"  :  :  END  :  :  SUBEXIT 

10040  IF  X1=X2  AND  Y1=Y2  THEN  10230 

10050  IF  Y1=Y2  THEN  10250 

10060  IF  X 1=X2  THEN  10300 

10070  M= (Y2-Y1 ) / ( X2-X1 ) :  :  N=Y1-M*X1 

10080  PX=ABS ( X2-X 1 ) 

10090  PY=ABS (Y2-Y1 ) 

10100  IF  PX >=PY  THEN  10170 
10110  IF  Y2<Y1  THEN  A=-l 
10120  FQR  Y=Y1  TO  Y2  3TEP  A 
10130  X=(Y-N)/M 

10140  CALL  PIXEL (INT(Y+.5),INT(X+.5)) 

10150  NEXT  Y 

10160  SUBEXIT 

10170  IF  X2<X1  THEN  A=-l 

10180  FOR  X=X 1  TO  X2  STEP  A 

10190  Y=h*X+N 

10200  CALL  PIXEL ( INT ( Y+. 5) , INT ( X+.  5) ) 

10210  NEXT  X 

10220  SUBEXIT 

10230  CALL  PIXEL (Yl,  XI) 

10240  SUBEXIT 
10250  IF  X2<X1  THEN  A=-l 
10260  FQR  X=X1  TO  X2  STEP  A 
10270  CALL  PIXEL (Yl , X ) 

10280  NEXT  X 

10290  SUBEXIT 

10300  IF  Y2<Y1  THEN  A=-l 

10310  FOR  Y=Y1  TO  Y2  STEP  A 

10320  CALL  PIXEL(Y, XI) 

10330  NEXT  Y 
10340  SUBEND 


10350  SUB  P I XEL  (  PUNÌ  OR ,  PUIMTGC  ) 

103Ó0  DIM  Vl$(64) 

10370  IF  PUNT0R<1  UR  PUNT0RM92  OR  PUNTQCC 1  DR  PUNTQC>256  THEN  10380  ELSE  10390 
10380  CALL  SOUND (200, 200, 0) :  :  PRINT  BAD  DATA  IN  CAL.L  PIXEL"  ::  END  ::  SUBEXIT 
10390  RIGA=1'NT  (PUNT0R/8+.  875) 

1 0400  COLONNA= I NT ( PUNTQC/8+ . 875 ) 

10410  X 1 =8-R I GA*B+PUNTQR 

10420  Y1=B-C0L0NNA*8+PUNTQC 

10430  CALL  GCHAR (RIGA, COLONNA, DAR) 

10440  IF  CAR=32  THEN  10980 
10450  CALL  CHARF'AT  (CAR, A$) 

10460  FOR  1=1  TO  16 
10470  Z«=SEGt(A$,  I,  1) 

10480  IF  Z$="0"  THEN  V*="0000"  ::  GOTO  10640 

10490  IF  Z$="l"  THEN  V*="0001"  ::  GOTO  10640 

10500  IF  Z$="2"  THEN  V*="0010"  ::  GOTO  10640 

10510  IF  Z$="3"  THEN  V*="0011"  ::  GOTO  10640 

10520  IF  Z$="4"  THEN  V*="0100"  ::  GOTO  10640 

10530  IF  Z$= "5"  THEN  V$="0101"  ::  GOTO  10640 

10540  IF  Z$="6"  THEN  V$="0110"  ::  GOTO  10640 

10550  IF  Z$="7"  THEN  V<*="01U"  ::  GOTO  10640 

10560  IF  Z$="B"  THEN  V*="1000"  ::  GOTO  10640 

10570  IF  Z$= "9"  THEN  V*=" 1001 "  ::  GOTO  10640 

10580  IF  Z$="A"  THEN  V*="1010"  ::  GOTO  10640 

10590  IF  Z$="B"  THEN  V$="10H"  ::  GOTO  10640 

10600  IF  Z*="C"  THEN  V$="1100"  ::  GOTO  10640 

10610  IF  Z$="D"  THEN  V$="1101"  ::  GOTO  10640 

10620  IF  Z$="E"  THEN  V$="1110"  ::  GOTO  10640 

10630  V$="llll" 

10640  FOR  T=-3  TO  0  ::  Vl$ ( I*4+T) =SEG* (V* , T+4, 1 ) :  :  NEXT  T 
10650  NEXT  I 

10690  Vl$< < X 1 -1 ) *B+Y1 ) =" 1 " 

10740  6$="" 

10750  FOR  1=1  TQ  16 

10760  V$=V1$  (1*4-3)  S<01*  (  1*4-2)  &V1*  (1*4-1  ) &V1* (  1*4) 

10770  IF  V$="0000"  THEN  Z$="0"  ::  GOTO  10930 

10780  IF  V$="0001"  THEN  Z$="l"  ::  GOTO  10930 

10790  IF  V$="0010"  THEN  Z$="2"  ::  GOTO  10930 

10800  IF  V*="00H"  THEN  Z$="3"  ::  GOTO  10930 

10810  IF  V$="0100"  THEN  Z$=,l4"  ::  GOTO  10930 

10820  IF  V$="0101"  THEN  Z$="5"  ::  GOTO  10930 

10830  IF  V$="0110"  THEN  Z«=,,6"  ::  GOTO  10930 

10840  IF  Vt^'Olll"  THEN  Z$="7"  ::  GOTO  10930 

10850  IF  V*="1000"  THEN  Z$=,‘8"  ::  GOTO  10930 

10860  IF  V$=,,1001'1  THEN  Z$="9"  ::  GOTO  10930 

10870  IF  V$="1010"  THEN  Z$=‘,A"  ::  GOTO  10930 

10880  IF  V*«"10U"  THEN  Z$="B"  ::  GOTO  10930 

10890  IF  V$="1100"  THEN  Z$="C"  ::  GOTO  10930 

10900  IF  V$="1101"  THEN  Z$="D"  ::  GOTO  10930 

10910  IF  V$="111G"  THEN  Z$="E"  ::  GOTO  10930 

10920  Z*="F“ 

10930  B$=B$&Z$ 

10940  NEXT  I 

10950  CALL  CHAR (CAR, B$) 

10960  CALL  HCHAR (RIGA, COLONNA, CAR) 

10970  SUBEXIT 

10980  IF  CARZ=0  THEN  CARZ=32 
10990  CARZ=CARZ+1 

11000  IF  CARZ>143  THEN  11010  ELSE  11020 

11010  CALL  SOUND (200, 200, 0) :  :  PRINT  : "  BAD  CHAR  IN  CALL  PIXEL"  ::  END  ::  SUBEXIT 
11020  CAR=CARZ 

11030  FOR  1=1  TO  64  ::  V1*<I)="0"  ::  NEXT  I 
11060  GOTO  10690  ::  SUBEND 


E.V.  &AMC 


SUBROUTIWE  "PLOT"  (35  lin«e)j 

con  la  subroutlnc  "TRUL" ,  ma  molto  più  voloct  in  quanto  lavora 
in  riaolusiano  24  X  32  (  l*£iga&4.  »  ^=Colonna^32  ')• 

ftftJùOdt  . .  mm^rn^ 


10000  SUB  PLOT ( Y1 , X 1 , Y2, X2) 

10010  CALL  CHAR  < 143, "FFFFFFFFFFFFFFFF" ) :  :  A=1 

10020  IF  XKl  OR  XI  >32  OR  Yl<  1  OR  Yl>24  OR  X2<1  OR  X2>32  OR  Y2<1  OR  Y2>24  THEN  1 
0030  ELSE  10040 

10030  CALL  SOUND (200, 200,0)::  FRI NT  : "BAD  DATA  IN  CALL  PLOT"  ::  END  ::  SUBEXIT 

10040  IF  X1=X2  AND  Y1=Y2  THEN  10230 

10050  IF  Y1=Y2  THEN  10250 

10060  IF  X 1=X2  THEN  10300 

10070  M= (Y2-Y1 ) / (X2-X1 ) :  :  N=Y1-M*X1 

10000  PX=ABS(X2-X1 ) 

10090  PY=ABS ( Y2-Y1 ) 

10100  IF  PX>=PY  THEN  10170 
10110  IF  Y2<Y1  THEN  A=-l 
10120  FQR  Y=Y1  TO  Y2  STEP  A 
10130  X»(Y-N)/M 

10140  CALL  HCHAR ( INT (Y+. 5) , INT (X+. 5) , 143) 

10150  NEXT  Y 

10160  SUBEXIT 

10170  IF  X2CX1  THEN  A=-l 

10100  FQR  X=X1  TQ  X2  STEP  A 

10190  Y=M#X+N 

10200  CALL  HCHAR ( INT ( Y+. 5) , INT ( X+. 5) , 143) 

10210  NEXT  X 
10220  SUBEXIT 

10230  CALL  HCHAR (Yl, XI, 143) 

10240  SUBEXIT 
10250  IF  X2< X 1  THEN  A=-l 
10260  FQR  X=X1  TQ  X2  STEP  A 
10270  CALL  HCHAR (Y1,X, 143) 

10200  NEXT  X 

10290  SUBEXIT 

10300  IF  Y2<Y1  THEN  A=-l 

10310  FQR  Y=Y1  TQ  Y2  STEP  A 

10320  CALL  HCHAR (Y, XI , 143) 

10330  NEXT  Y 
10340  SUBEND 


EV.  ime 


Program  4:  Crazy  Climber  For  The  I1-99/4A 

Pat  Parrish,  Programnnlng 

100  Dlh  D ( 7) , E ( 7) , G (4) , C* (4) 

110  GOTO  140 

120  REM  RANDOMLY  PICK  WINDOM  &  PRIN 
T  S I N I  STER  MAN 

130  V=INT <RND*B)  :  :  CALL  DELSPR I  TE  (  M 
1)::  CALL  SPR I  TE < #4 , 96 , 2 , D  (  V ) *8 
+  1  ,  E  (  V  )  *  0+  1  )  :  :  R»-l  tt  Q*-l  >: 
RETURN 

140  HS=0  ::  RANDOMIZE 

150  GOSUB  480 

160  GOSUB  790 

170  GOSUB  670 

180  T=0  ::  U=. 1  li  Q-0  il  R»0  ii  SC 

=0  : t  B=  1  1 2  ti  Z--3  li  R0W»13  i 
i  COL=  1  5 

190  CALL  SPRITE  («2,  B,  2,  ROW*8+l  ,  COL* 
8  +  1  > 

200  IF  R  THEN  CALL  SPR I  TE ( «  1 , G < I NT < 
RND  *  5 )  >  ,  I  NT <RND« 14) +3,  <D ( V) +4) * 
8+1 , E < V) *8+1 , 15, 0) i :  SC=SC+10  i 
:  R  =  0  i:  CALL  DELS PR I  TE ( #4 ) 

210  IF  <RND<U> * (R«0> » <Q=0> THEN  GOSU 
B  130 

220  CALL  KE Y  (0, K, ST ) 

230  IF  K=69  THEN  ROW-ROW-1  il  IF  <R 
QW  =  —  1  )  THEN  R0W  =  23  il  SC-SC+100 
::  U  =  U  +  SGN  < 1-U) /20  il  GOTO  280 
ELSE  280 

240  IF  K-B3  THEN  COL-COL-SGN ( COL-2 > 
<2  i 1  GOTO  280 

250  IF  K-6B  THEN  COL-COL+SGN < 26-COL 
) <2  i :  GOTO  280 

260  IF  K*0B  THEN  ROW-ROW+1  II  IF  <R 

90  COMPUTII  Novembei  1983 


T1-99/4A  Version  Kok  j 

[  Pat  Parrish.  Programming  Suoerv-:;.-; 

;  In  thè  TI-99/4A  version  of  this  game  (unta: a 
’  in  Extended  BASIC),  you  are  thè  Crazy  j 

*  Climber,  scrambling  up  thè  face  of  a  building 
;  while  avoidingnumerous  objects  (piano,  inm, 

broom,  safe,  barbells)  tossed  from  Ilio  win- 
dows  above.  These  objects  aie  actoaib  rn- 
'*■  down  uponyoubya  relentless,  sinistV-r  ù  in 
who  appears  just  briefìv  befoie  throw.'.' 
each  objecl.  Il  you  aie  quick.  \  o. 
these  oncoming  object. s.  Neri,, 
he  throws  things;  it's  a  quirk.  Be  renay  Lo 
;  meet  thè  challenge.  For  as  thè  game  progn.  ,  - 
;  es,  thè  villain  strikes  with  greater  frequem 
In  this  game,  you  move  thè  Crazy 
Climber  over  a  stationary  building  wit li  thè 
ì .  E,  S,  D,  and  X  keys.  The  screen  will  wrap 
around  when  you  reach  thè  top  or  bottom.  A 
\  hundred  points  are  awarded  for  Crossing  thè 

•  top  of  thè  screen,  while  an  equal  munivi  are 
('  deducted  for  Crossing  thè  bottom.  In  addi 

ì  tion,  ten  points  are  given  for  each  fallmg 
i  object  that  you  a void. 
jì  The  game  ends  when  you  are  hit  by  a 
!  falling  object  or  are  pushed  from  a  window 
L  by  thè  villain.  Thus,  you  are  allowed  to  dime 
r  over  Windows  in  this  version,  but  you' re 
?  taking  a  chance.  If  thè  villain  emerges  while 
r  you  are  in  a  window,  it's  curtains  for  vou. 

;  (You'll  be  relieved  to  discover  that  thè  Cr.i/v 
.  Climber  carries  a  parachute.) 

I  One  line  in  this  program  requires  th.,t 
i  you  have  a  TI  Speech  Synthcsi/er  comi:  r.v 
r  to  your  TI ■•99/4 A.  If  you  don  i  ho»  e  :  ■ 
phcral,  remove  thè  CALI  S  W(’*UHOH  ) 
statement  in  line  320.  " 

ih.  . . .  . - _ 


0U>24 ) THEN  ROW-0  il  SC-SC-10® 
i  GOTO  280  ELSE  2B0 
270  GOTO  290 

280  B-22B-B  il  Z-197-Z  il  CALL  SPR1 
TE <*2, B, 2, ROM4B+1 , C0L4B+1 ) l l  CA 
LL  SOUND (  1 0 ,  Z  ,  2  ) 


290  CALL  C01NC (ALL, CI ) i l  IF  CI  THEN 
320 

300  CALL  PQSITION (#1 , XROW, XCOL) i I  I 
F  XROW< 1 80  THEN  200 
310  CALL  DELSPRITE (#1 ) I I  Q-0  li  GOT 

0  200 _ _ _ 

320  T- 1  il  V— 2  il  CALL  DELSPR I TS  t  *  * 
>ii  CALL  S AY  < " UHOH ") li  REM  REMO 
VE  "CALL  SAY "  IF  W/OUT  SPEECH  S 

YNTHESIZ  ER _ L 

330  IF  TP  THEN  T-40 

340  CALL  SPRITE  (#2,  108, 2, ROM*  B+ 1 , CO 
L*0+1 , 25, 0> i i  FOR  1-1  TO  95  »i 
NEXT  I  il  CALL  MOT  I  0N  (  <*2 ,  10,0! 


I 


M  M  Hft  IL  SuJifc <\UA<flnA  <ofcLit «£ 
LA  Lidi  A  blQ 


TI  version  of  "Crazy  Climber.  " 


330  CALL  SOUND (-30, -7, 2) I i  CALL  SPR 
ITE  <#3,  104,  16,  < ROW  +  2 ) *B+1  , COL *8 
■«■1,10,0) 

360  CALL  SOUND (80, 3000- T*40, V) i i  T- 
T+l  i  i  IF  T<  63  THEN  360  s 
370  CALL  POSITION (#1 , DR, DC, 43, CR, CC 
>::  IF  DR  >192  THEN  CALL  DELSPRI 
TE (4  1  ) 

3B0  IF  CR  > 1 65  THEN  CALL  DELSPR I  TE  (  4 
2, 43)  :  :  GOTO  400 
390  GOTO  360 
400  IF  TP  THEN  GOTO  910 
410  CALL  DELSPR I  TE (ALL )  s  i  FOR  L=1  7 

O  100  ::  NE  X  T  L  ::  CALL  CLEAR  : 

:  CALL  SCREEN (14) 

420  DISPLAY  AT ( 10, 5) : " YOUR  SCORE  ; 

"  ;  SC 

430  IF  SC  >HS  THEN  HS  =  SC 

440  DISPLAY  AT ( 13, 5) : "HIGH  SCORE  : 

"  ;  HS 

450  DISPLAY  AT ( 16, 5) : "PLAY  AGAIN  ? 

"  ::  ACCEPT  AT  <  1  6  ,  1  9  >  BEEP  VAL  I  D. 

ATE(”YN")SIZE( 1) :  ANS* 

460  IF  ANS*="Y“  THEN  170 
470  STOP 

480  REM  DEFINE  CUSTOM  CHAR 
490  FOR  1=120  TO  121 
500  READ  A* 

510  CALL  CHAR ( I , A* ) 

520  NE  X  T  I 

530  DATA  FFQ08080B08080Q0, FF0101010 
1010101 

540  CALL  MAGN I F Y  <  4 )  :  :  CALL  CHAR1100 
,  "  ”  ) 

550  CALL  CHAR ( 1 12, " 0323232 1 273F0303 
03030608 1008040980808000C0E0908 
B90B0Q080B0808080" ) 

560  CALL  CHAR ( 1 16, "010101000307091 1 
09010101010 1 01 01 C0C4C484E4FCC0C 
0C0C0601008102090" ) 

570  FOR  1=0  TO  4  ::  READ  C*  (  I )  :  :  G< 

I)=124+4*I  ::  CALL  CHAR(G(I),C* 

( I ) ) s :  NEXT  I 

580  DATA  2 070FF 70200000000000000000 
000000040EFF0E04000000000000000 
0000000 

590  DATA  000000003F3F3F3F3F3F3F3F3F 

3F303000000000F8FBF9DAFCF8F8F8F 

8F8181B 

600  DATA  000001010305091 1273F3F1212 
1010100000C0E0F0FBFCFEFEFAF21 2 1 
2101010 


610  DATA  0300000F0F0F 1F0000000002^0 
000000E02020E0F0F0F  8000000000  a?0 
0000000 

620  DATA  00000000000000000  !  03  1  F 3C 7T 
FCF8700103060C183060C0800000000 
0000000 

630  CALL  CHAR  (  1 04 ,  " 0 1 070F 1 F 1 F 1 5 1 0 

080404020201 01 0080E0F0FBF858 C31 
01020204040808000") 

640  CALL  CHAR  (  1 08 ,  " 020405070 1 0 1 0  ? 
0202020600000000804040C0308C 
04040406000000000" ) 

650  CALL  CHAR ( 96 , " 00000000000 1 C 1 C0E 
0E0607070381C 1F273F7FFFFFFFFF37 
2F1F030F1F3F7FFF" ) 

660  RETURN 

670  CALL  COLOR ( 12, 1 , 1 ): :  CALL  COLOR 
(9,1,1)::  REM  SET  UP  WALL 
680  CALL  CLEAR  ::  CALL  SCREEN(2>:: 

ROW*="xyxyxyxyxyxyxyxyxyxyxyxyx 
y  x  y  " 

690  ROW2*="yxyxyxyxyxyxyxyxyxyxyxyx 
y  x  y  x  " 

700  FOR  RQW= 1  TO  23  STEP  2  ::  DISPL 
AY  AT (ROW, 1 ) : ROWS  ::  NEXT  ROW 
710  FOR  R0W=2  TO  24  STEP  2  ::  DISPL 
AY  AT  (ROW‘,  1  )  :  R0W2*  ::  NEXT  ROW 

720  FOR  RQW  =  3  TO  6  :  :  FOR  C0L  =  5  TO 
25  STEP  10  ::  CALL  HCHAR(ROW,CO 

L,  100,4)  :  :  NEXT  COL  ::  NEXT  ROW 
730  FOR  ROW= 1 9  TO  22  ::  FOR  COL=5  I 
0  25  STEP  10  ::  CALL  HCHAR ( ROW , 
COL, 100,4)::  NEXT  COL  ::  NEXT  R 
OW 

740  FOR  RO W= 1 1  TO  14  ::  FOR  COL=10 

TO  20  STEP  10  ::  CALL  HCHAR ( ROW 

, COL ,  1 00, 4 )  :  :  NEXT  COL  ::  NEXT 
ROW 

750  CALL  COLOR ( 1 2,  1 5 , 7 >  :  :  CALL  COLO 
R  (  9  ,  1  ,  1  1  ) 

760  E  ( 0 )  =  4  ::  E(l)=14  ::  E(2)=24  : 

E ( 3 ) =  9  ::  E(4)=19  ::  E<5>=4  : 

E (6) =14  ::  E  (7) =24 

770  D ( 0 ) =  2  ::  D ( 1 ) =2  ::  D(2)=2  ::  . 

( 3 ) = 1 0  ::  D ( 4 ) = 1 0  ::  D(5)=18  :  : 

D (6)  =  18  :  :  D  (7)  =  18 

780  RETURN 
790  REM  TITLE  PAGE 

800  CALL  CLEAR  ::  CALL  SCREEN(15) 

810  R  Q  W  *  =  " xyxyxyxyxy"  ::  R0W2$="yxy 
>:  y  x  y  x  y  x  " 

820  CALL  COLOR ( 12, 15, 15) 

830  FOR  R0W=7  TO  23  STEP  2  ::  DISPL 
AY  AT (ROW, 2) : ROW*  ::  NEXT  ROW 
840  FOR  ROW=B  TO  24  STEP  2  ::  DISPL 

AY  AT (ROW, 2) : ROW2*  ::  NEXT  ROW 
850  CALL  COLOR  (  i 2 ,  1 5 , 7 ) 

860  DISPLAY  AT  (6,  19)  :  " T  H  E"  ::  DIS 
PLAY  AT (8, 17) : "C  R  A  Z  Y"  ::  DI 
SPLAY  AT  <10,  15)  :  "C  L  I  M  B  E  R" 
B70  FOR  1=1  TO  100  ::  NEXT  I  ::  B=1 

16  ::  Z  =  200  ::  R0W=19  ::  C0L  =  6 

880  CALL  SPR I  TE ( 42 , B , 2 , ROW*B+ 1 , COL  * 
8+1)::  CALL  SOUND ( 1 0 , Z , 2 ) 

090  B  =  228 - B  ::  Z=197-Z  ::  ROW  =  ROW-l 

::  FOR  1=1  TO  50  ::  NEXT  I  :: 

IF  ROW ' 1  THEN  880 
900  T  P  = -  1  ::  GOTO  320 

910  T  P  =  0  ::  DISPLAY  A T ( 1 6 ,  1 3 )  :  " USE 

E,S,X.D  KEYS"  ::  DISPLAY  AT(17, 
13)  :  “TO  AVO  I D  FALLING" 

920  DISPLAY  AT ( 18, 13) : "OBJECTS. "  :: 

DISPLAY  AT (20, 16) : "GOOD  LUCK ! " 
930  FOR  1  =  1  TO  1000  ::  NEXT  I  :  :  CA 

LL  DELSPR I  TE ( 42 >:  :  RETURN 
940  END 


Itti  fctf.&ftte. 


'  !  **************  -, 

>  !  ■*  JUNGLE  JIM  *  ) 

‘  *  BY  * 

i  !  *  * 

i  !  *  MIKE  MCCUE  * 

t  \  t  * 

'  ************** 

!  n  ni  n  !  1 1 

1  99’ER  VERSION  2.  ìe.jlffi 

1  ■  !  '  ;ii! 

RANDOMIZE 

DEF  «RND<N>=INT(RND*N>;+X  i  i 
TIME=1  !ìSETS  FLAG  TO  DISPLAY  fT; 
ITLE  SCREEN  1ST  T1I*E  THRDUGH 
GOSUB  960  DISPLAYS  TITLE  SERE 

a* 

IF  TIMEOl  THEN  GOSUB  1120  ‘RE 
SETS  CHAR  DEF1NITI0NS  FDR  REFI 
AY 

DISPLAY  AT(1,115IZE(LEN(STR*(S 
C))-H>:SC  ss  DISPLAY  AT  (2,  1)SI 
ZE(— 2)  :GUY  s!!  CAIO  VCHAR<1,3,3 
3)  ss  CALL  VCHAR(2,3,33> 

RESTORE  910  ss  C=96 
CALL  CQLOR(2,2,ll)ss  C#LL  COLO 
!  RII, 13,1)3*  CALL  COLOR  <3, 2.13> 
ss  CALL  COLDRI4,  11,  1)  s  s  CALL  C 
OLOR(5,2,ll)ss  CALL  COLOR (6. 7, 
2) 

CALL  COLOR  (B ,  4 .  11)  s  s  CALL  COLO 
RC7, 15, 11)**  CALL  COLOR (14. 14, 

r>  '  '  i 

FUR  B=1  TD  100  ss  PEXT  D  sis  CA 
LL  SPR I “TE (#1,92,  16, 104,60) 


CALL  KEY(0,T,ST)t.s  CALL  COINC 
ALL,, HIT)  s  s  IF  HIT»- 1  TPE3N  CALL 
COINC  (#1,  #10, 32,  IT)  ss  IF  IT— 
1  THEN  GOSUB  730  ELSE  GOTO  750 
'CONTROL  LOOP 

IF  ST=0  THEN  CALL  MOTIONC#l,e, 
0)  s  s  HY=@  s  s  GOTO  320 
CALJ_  POSITION(#1,'X,Y)  s  :  IF  Y>2 
04  T*-£N  460  ELSE  IF  Y<60  THEN 
CALL  SOUNDd,  110,  1,112,2,  114,3 
)  ■  5  CALL  LOCATE  (#1,X  ,  60) 

IF  T=6B  THEN  H9=10  ss  CALL  PA” 
TERNC#1,C>  !  :  CMC1— 4  ss  CALL  MCF 
ION(#l  ,0,  10)  s  s  IIP  P<=92  THEN  C 
=112  ss  GOTO  320  ELSE  320 
IF  T=83  THEN  HV— 10  ss  CALL  PA 
TTERN(#1  ,C)  s  s  D=C-4  s  s  CALL  MD 
T10N(#1, 0.-10)  s  s  IF  C<=92  TPCN 
C=112  ss  GOTO  320  ELSE  320 
IF  T=73  THEN  390  .  1  I 

CALL  MOTION(«l  0,0) s:  HV=0  ss 
GOTO  320  ■  i  |  I  i  j  j  1  i  •  , 

CALL  MOTIDN(#l.-l|6l,HV*l-l^) 

FOR  D=1  TD  20  STEi  4  ss  CALL  S 
QUND  (-310,-3,0)  s  s  tìALf-  COINC  (4 
1,#7,  17,HlT>|s(s  IF  HIT— 1  THEN 
CALL  hOTlON  #1  0,10)  si:  HY=0  ss 
GOTO  7;10  :  ,  I  |  I  ;  : 

NEXT  D 

CALL  MOTION(#l,24.HV*l  .5) 

FOR  D=1  TO  6  (ss  CALL  COINC  (#1, 
#7,  17, HIT)  ss  IF  HIT— 1  THEN  CA 
LL  MOT ION (#1,0.  10)  :  :  GOTO  710 
PEXT  D  ss  CALL  MOTION (#1,0,0) 
CALL  POSITION(#l,  X,Y!  :  s  CALI-  L 
QCATE  (#1 ,  104,  Y)  :  :  GpTD  320 
CALL  MOTÌON (#1 , 0,0) iss  CALL  LOC 
ATC;#1, 104,60) ss  FOR  1=2  TO  13 
ss  CALL  DELSPRITE  (#;I  )  :  s  NEX7- 
I  ss  COL=COL+l  ss  IF  COL=l 1  TH 
EN  pOL=14 

IF  COL =16  THEN  COL  =5 
CALL  COLOR (7. COL, 11) 

EAHRRND  (6)  ss  IF  EA=1  THEN  GOSU 
B  640  :  s  GOTO  320 
TR=RRND(4)  :  :  IF  TR=1  THEN  pO&J 
B  660 

S=RRI\»<5>  :  s  IF  S=1  THEN  SV=0  : 

:  GOSOB  670  ss  A=INT  <RND*15)-*-l 
:  :  IF  A=1  TPCN  GOSUB  650  ■:  s  G 
oro  320  ELSE  320 
FI=RRND(5):s  IF  Fl  =  l  THEN  GOSJ 
B  690  ss  A=RRND(I0):s  IF  A=1  T 
(CN  GOSUB  650  s  s  ODI  O  320  FI  SF 
320 

MS=RRND<5)  ,s  :  l|F  MS=1  Yl^N  BV=I 
NT(RND*50)-30  ss  GOSUB  670  ss 
A=RRND(B)  :s  IF  A=1  THEN  GOSUE 
650  s  s  GOTO  320  ELSE  320 
P=RRND(2)s:  IF  P=1  THEN  PV=@  s 
:  GOSUB  500  :  :  GOSUB  650  ijs  HO 
TO  320 


559  I  --RRND(l)  ss  IF  Ls=l  AND  TROl  T 
HEN  GOSUB  610  ‘  |  I 

560  M=RRND(4)  ss  IF  M“1  AND  f_«j>|l  TH 
EN  GOSUB  650  s  s  GOTO  320  ( 

37?  GOTO  320  '  '  <  >  1  1  '  1 

5B0  CALL  CHAR(116,Cl*>!:s  CALL  CHAR 
<  120,024)  ?  -  ca*L  Chap(124,C3#) 
900  CALL  SERI  TE  (#2,  116,5, 120,96,0, 
PV,#3,  120,5,  120.  128.0,  P  V,  #4*  il  2 
4,5,120,  160,0, PV)  !i  Mi  Hi 

6*0  RETURN  1  ;  j  J  ;  ! 

410  REM  ,  I  1  1  I  !  !  !  I 

.420  FOR  1=2  TD  |3  s  s  CALL  PRITE(#I 
,128,9,112,  (  I064+B )  -20,0, -20)  :  j 

i  next ,i  il-  '  nTrr 


,  128,9,112,  (I*. 

I  MeÌt  I 

430  RETURN 

440  CALL  SPRITE  (#2 


j  i  i 

I  | 

,44,|5;, 


i,  104.240,0, 


20, #3,44, 7,  104,  160.0, 20)is  s,  RET 

I  CU  ,  .  1 

IJRN 

4S0  CALL  SPRITE  (#7.,  140,  10,59,  120^0; 

, 10) s :  RETURN 

460  CALL  SPRITE  (#10,  132.  16.96.216) 
s  :  RETURN 

470  CALL  CHAR<116,"@00C3A071F"StX*&  j 
-0003060503000000B0C0C0C0C0C0C 
2C4CSFEC73FFF") 

680  CALL  SPRITE  (#2,  il  16.  ifcfT  IRND*9>+ 
2,  14*8,  INT  (RND*14)  0B+100,  0,  SV> 

!s  ■'  RETURN  jil 

«0  CALL  CPWR  (116,  “000009002406272 
735355D6AA2E6955A4020002OB0B0F 
8F8F AED6BB9BF96B59  "  ) 

700  CALL  SPRITE  (#2,  116,7, 14*8,  INT  ( 
RND*14>  *8-*-100)  :  :  RETURN 
710  CALL  KEYCft.V.CV)  :  IF  CV<  >0  TH 
EN  CALL  MOTION (#1  0*0)  s  s  CALL 
POSITION(#l,X,Y):is  CALL  LOCATE 
(#1,  13*8,  Y)  s  :  CV.V=0  si:  GOTO  3 
20 

720  TE  =2  ss  GOTO  060 
750  CALL  SOUND (500. 500, 1,504,2,506 
,3)::  CALL  DELSPRITE  (#10)  :  :  SC 
=SC-,250  ss  DISPLAY  AT(1,1)SIZE 
(LEN(STR6(SC)  )+l)  :SC  ss  CALL  V 
CHAR(  1 , 3, 33) 

74#  RETURN 
750  REM 

740  T,ST=0  ss  CALL  MOTION(#l  ,0.0) 
770  FOR  1=510  TD  110  STEP  -100  s  s 
CALL  SOL#»  (  1 , 1 , 1 ,  1+2,  2, 1+4 , 3)  : 
s  NEXT  I 

786  GUY=GUY~1  ss  DISPLAY  AT(2,  DEI 
|  ZE  (—2)  s  BUY  ss  CALL  YCHAR(2,3,3 
3)  ss  IF  BUY<  >0  THEN  CALL  LOCAT 
£  (#1 , 104, 45)  s  :  BOTO  330 
790  CALL  SOUND  <2300,220,  1,222,2,22 
4,3)::  CALL  CLEAR  ss  CALL  CHAR 
SET  ss  IF  EA=1  THEN  CALL  DELBP 
$*.•"  RITE  (  *2,  *3) 

B00  A*(1)=B*4"ALL  YDUR  MÈN  MERE  DE 
uè,  STROYED  AND  YDU  ONi.Y  SCDRED  “ B, 

'•  '  -  .  STR*(BC)6"  POINTS.  • 


780  GUY=BUY- 

7C  .  rz 


2 


Jungle  Jim 


81»  A*(2>=&9&"BETTER  LUCK  NEXT  TIH 


82©  A$(^)=m"WflNT  TO  F1_AY  AGAIN? 
(Y  OR  N) 

83©  TE=1  ::  EOSUB  146® 

84©  CALL  KEY <©,K, STATI ::  1F  NOT (K= 
OR  fc-7B>THEN  84©  ELBE  IF  K= 
7B  THEN  STOP 

85©  CALL  DELSPR T TE (ALL > s :  TI ME =2  : 

!  PV=0  «  :  GOTO  26© 

86©  READ  TF'.FR  ss  ON  FR  EQTp  BB0.B 
90,  900,  B70  '  i  j  | 

87©  RESTORE  910  ss  BOTO  B60  ,  . 

880  CALL  SOUND  (100,  TP,  1 ,  TP+2 , 2,  TP*- 

3,3)::  CALL  SOUND < 10©, 165, 1, 19 
6,1,262,1)::  DN  TE  BOTO  1480.7 


89»  CALL  SOUND  <100,  TP,  1,  TP-*2, 2,  TP+ 

4.3)::  CALL  SOUND (  100,  1 75,  1 ,22 
©,1,262,1)::  DN  TE  BOTO  14B0.7 


9©0  CALL  SOUNDO0O.TP,  1,TP+2,2,TP+ 

4,3)::  CALL  SOUND ( 10©.  196,  1,24 
7,1,294.1)::  ON  TE  BOTO  1480.7 

10  '  '  ,  '  Ili 

91*  DATA  262,1,330,1,392,1,440,1,4 

66.1.370.1.392.1.330.1.349.2.4 
:  40,2, 523,2,  pB7, 2,  622,2  I  I  j 

92*  DATA  494 , 2, 523,2,  440, 2 , 392, 3j,  4j 
94, 3, 587, 3, 659, 3,  69B,  3, 554,11, 5 

87.3.494.3 

93©  DATA  349,  2 , 440,2,  523,  2,587 ,  2  6 

22.2.494.2.523.2.440.2.262.11.3 
30, 1,  392,  1,440,1,466,  il 

940  DATA  370. 1.392,1,330,1,262,1,1 
96,11,262.  1.  196,1.262,  1, 196.11,2 
62,1,262, 1,294,1,33®,  3 
95©  DATA  349,2,262,2,349,2,262,2,3 
49,2,262,2,349,2,349,2,330,2,2 

94 . 2 . 262 . 1 . 196.1.4.4 

96»  VD=28  ::  Z*=RFT»  (  •'©••  ,  16)  :  :  CAL 
L  CUAR1140,  “000001010F09090901 
0 1 0 1  ©  1 3E20©000C0C4C4FCfc0C0C0C0 
C020 1 00B0B 1 02030 "  ) 
||||p)|ca»=RPfr*;(*‘0,V  13)  fc“31FFFlF03"*<R 
1  FT*C0“.20)8.“C"  6RPT*  <MF“, 11> 
980  C2*=RPT*  (  "  ©  “  ,  7  >  &  "  3  “  &RPT*  (  “  F*' ,  i 
B  )  *.  "  ©3  ■  B.RPT»  (  "0"  ,  1 0)  C0”  6RPT* 

(“F" , 18) 

»  99®  C3*=RPT*(''©”,a®)«<’‘FC“È.RPT#("R' 
,  1  l)«<*,C0000,,feZ*e1',C0FBFFFBF" 
10®®  E=96  si:  C2=104  ss  XS*=RPT*C"0% 
12) s s  Y=6  ::  CALL  CLEAR  ::  DIB 
PLAY  ATI 12,l)s 'PRESS  ANY  KEY  T 
■\  ■ '■.■■i-.-'-ta  STOP  ANY  ERAPHICS  DISP 

l.AYS.  " 

101*  FOR  D*=.l  TD  500  s  :  FtXZ  D  :  :  CA 
LL  5CREEN 12)  :  :  DALL  CHAR(36„xk 
*<"000C1F1C1C1C0C0C0702"B.Z»S<"01 
®2FECB90B48B131654")S  :  CALL  CL 
EAR 


Iti 

Gasi  l 


mt 

«ii«  ■ 

aìgg: jgy£»  a  a»  ^ 

T- 

i  j  ■  mmii 

ItTST 

irai|j 

i  »7^i  fi» 

10  REM  METEOR 
20  REM  FRANCQMPUTER  CLUB 
30  REM  TEXAS  CLUB  TI  99 
35  CALL  CLEAR 
40  RESTORE  90  • 

50  FQR  1=1  TO  5 
60  READ  DUR, NOTE 
70  CALL  SOUND (DUR, NOTE, 0) 

80  NEXT  I 

90  DATA  330,880,330,988,330,784,330,392,990,587 
100  CALL  CLEAR 

110  INPUT  "VUOI  LE  ISTRUZIONI  ?  (Y)":Q$ 

120  IF  SEG$ (Q$, 1 , 1 ) =" Y"  THEN  140 

130  IF  SEG$(Q$, 1, 1)<>"N"  THEN  110  ELSE  170 

140  GOSUB  4050 

MfltOft 


150  CALL  CLEAR 

160  GOSUB  3060 

170  GOSUB  3220 

180  TS=0 

190  MET =0 

200  SHD=0 

210  HITS=0 

220  DEAD=0 

230  CALL  SCREEN (5) 

240  CALL  COLOR (1,5, 5) 
250  CALL  COLOR (3, 16, 14) 
260  CALL  COLOR (4, 16, 14) 
270  CALL  COLOR (13, 16, 1) 
280  CALL  COLOR (14, 9, 1) 
290  CALL  COLOR (9, 2,  16) 
300  CALL  COLOR (10, 2, 5) 
310  CALL  COLOR (11, 2, 5) 
320  CALL  COLOR (12, 11,5) 
330  CALL  COLOR (8, 14, 14) 
340  RANDQMIZE 
350  RESTORE  410 


. .  i  mi  '  ■  -  ■ _ ,  360  FQR  1=91  TO  122  _ 

370  IF  (  (  I  >9'n#(I<96)  >  +  (  (  I  >99  )  *  (  I  <  1 04  )  )  THEN  400 
380  READ  A* 

390  CALL  CHAR ( I , A* ) 

400  NEXT  I 

410  DATA  FFFFFFFFFFFFFFFF,FFFFFFFFFFFFFFFF,FFFFC3C3C3C3FFFF,FF9999FFFF9999FF,FFE 
7E7C3C3E7E7FF , 80C0E0F0F8FFFF7F 

420  DATA  0 1 06 1E3CFCF8F0F0 , 7F7F3F3F 1 F 1 FFDFB , E0EGE0F0F8FCFE7F , 8060783C3F 1F0F0F ,010 
3070F1FFFFFFE 


430  DATA  0707070F 1 F3F7FFE , FEFEFCFCF8F8DF IF, 1818181818181818, C0F0FCFFFCF8D8 1 8 , 030 
F3FFF3F1F1B18 

440  DATA  1 8 1 8 1 8 1 a 1 a 1 8 1 F 1 F , 1 8 1 8 1 a 1 8 1 a 1 8F8F8 , FCF0E0C0C0C39FFF ,00808181 C387C7FF , 1 FO 
70703B3E1FBFF 

450  DATA  010204083070E040, 804G20100C0E0702, OOOÙOOFF 
460  REK -  -  . 


470  CALL 
480  CALL 
490  CALL 
500  CALL 
510  CALL 
520  CALL 
530  CALL 
540  CALL 
550  CALL 
560  CALL 
570  CALL 
580  CALL 
590  CALL 
600  CALL 
610  CALL 
620  CALL 
630  CALL 
640  CALL 
650  CALL 
660  CALL 
670  CALL 
680  CALL 
690  CALL 
700  CALL 
710  CALL 
720  CALL 
730  CALL 
740  CALL 
‘ 750  CALL 


HCHAR (23,5,96,24) 
HCHAR (24, 4,96) 
HCHAR (24, 29, 96, 2) 
HCHAR (24, 5, 91, 24) 
VCHAR (21 ,5,97,2) 
VCHAR (21 , 5,97,2) 
VCHAR(21 , 6,97,2) 
VCHAR (17, 9, 97, 6) 
VCHAR (20, 11,97,3) 
VCHAR (20, 12,97,3) 
VCHAR (20, 13,97,3) 
VCHAR (20, 14,97,3) 
VCHAR (20, 15,97,3) 
VCHAR (15, 18,97,8) 
VCHAR (15, 19,97,8) 
VCHAR (18, 21, 97, 5) 
VCHAR (22, 22, 97) 
VCHAR (22, 23, 97) 
VCHAR (18, 24, 97, 5) 
VCHAR (18, 25, 97, 5) 
VCHAR (16, 27, 97, 7) 
VCHAR (16, 28, 97, 7) 
VCHAR (14,6,98,7) 
VCHAR (14,7,98,9) 
VCHAR (14, 8, 98, 9) 
VCHAR (14, 9, 98, 3) 
VCHAR (15, 11,98,5) 
VCHAR (15, 12, 98, 5 f 
VCHAR (16, 15,98,4) 


760  CALL^VCHARt 16, 16,98,7) 

770  CALL  VCHAR (14, 23, 98, 8) 

780  CALL  VCHAR (14, 24, 98, 4) 

790  CALL  VCHAR (14,  25, 98, 4) 

800  CALL  VCHAR (14, 26, 98, 9) 

810  CALL  VCHAR (14, 27, 98, 2) 

820  REM _ _ _ 

830  CALL  VCHAR (17, 3, 112,3) 

840  CALL  VCHAR (17, 31, 112,3) 

850  CALL  VCHAR (20, 3, 99, 5) 

860  CALL  VCHAR (20, 3 1,99, 5) 

870  CALL  VCHAR (12, 2, 112,4) 

880  CALL  VCHAR (12, 32, 112,4) 

890  CALL  VCHAR (16, 2, 115) 

900  CALL  VCHAR (16, 32, 116) 

910  CALL  VCHAR (11, 2, 113) 

920  CALL  VCHAR (11, 32, 114) 

930  CALL  VCHAR (15, 3, 104) 

940  CALL  VCHAR (15, 4, 105) 

950  CALL  VCHAR (16, 3, 106) 

960  CALL  VCHAR (16, 4, 107) 

970  CALL  VCHAR (15, 30, 108) 

980  CALL  VCHAR (15, 31, 109) 

990  CALL  VCHAR (16, 30, 110) 

1000  CALL  VCHAR ( 16,31, 111) 

1010  REM 

1020  CALL  CHAR (130, "004834 10BE964 122") 
1030  CALL  CHAR (133, "00003030") 

1040  CALL  CHAR ( 134, "OOOOOCOC") 
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1140  NEXT  T 

1150  MY=29-X 

1160  CALL  KEY (0, K,  S) 

1170  C0DE=1 

1180  IF  S=0  THEN  1210 

1190  IF  K=48  THEN  1200  ELSE  1210 

1200  GOTO  2680 

1210  CALL  VCHAR (29-X, X , 32) 

1220  CAU-  GCHAR (30-X, X-1,D) 

1230  IF  D<96  THEN  1460 

1240  IF  D>98  THEN  1440 

1250  DEAD=DEAD+100 

1260  GOSUB  4200 

1270  IF  D=97  THEN  1310 

1280  CALL  VCHAR (30-X, X-l, 130) 

1290  CALL  VCHAR (30-X, X— 1, 117) 

1300  GOTO  1370 
1310  Y=30-X 
1320  Z=X-1 

1330  IF  ( (Z=9) * ( (Y<23) * ( Y>16) ) ) THEN  1350 

1340  GOTO  1290 

1350  CALL  VCHAR (Y,Z, 130) 

1360  CALL  VCHAR (Y, Z ,  98) 

1370  CALL  SOUND (-800, -7,0) 

1380  FOR  DELAY=1  TO  200 ' 

1390  NEXT  DELAY 

1400  IF  (30-X) =23  THEN  3640 

1410  MET=MET+1 

1420  IF  MET>=METEOR  THEN  3420 

1430  GOTO  1470 

1440  CALL  SOUND (-300, -7,0) 

1450  CALL  VCHAR (30-X, X-l, 130) 

1460  NEXT  X 

1470  FOR  F=1  TO  10*RN0  ? 

1480  M=0  rL 

1490  SHD=0 

1500  MET=MET+1  ? 

1510  IF  MET>=METEOR  THEN  3420  0" 

1520  X=INT (28*RND)  ” 

1530  IF  X<5  THEN  1520  g 

1540  FOR  Y=1  TO  23  2 

1550  CALL  SOUND (-500, 250, 30, 500, 30,. 

1560  FOR  T= 133  TO  137  STEP  4 
1570  CALL  VCHAR ( Y , X , T ) 

1580  NEXT  T 

1590  IF  ( SHD >0 ) # ( SHD< 5 ) THEN  2970 
1600  MY=Y 

1610  CALL  KEY (0, K, S) 

1620  C0DE=2 

1630  IF  S=0  THEN  1710 

1640  IF  K=4B  THEN  1650  ELSE  1660 

1650  GOTO  2680 

1660  IF  K=49  THEN  1670  ELSE  1680 
1670  GOTO  2410 

1680  IF  K=50  THEN  1690  ELSE  1710 

1690  TS=TS+1 

1700  GOTO  2970 

1710  CALL  VCHAR (Y,X, 32) 

1720  CALL  GCHAR (Y+l , X , D) 

1730  IF  D<96  THEN  1960 
1740  IF  D=122  THEN  1810 
1750  IF  D>1 16  THEN  1940 
1760  DEAD=DEAD+300 
1770  GOSUB  4200 
1780  GOSUB  4200 


1790  GOSUB  4200 
1800  GOTO  1840 
1810  CALL  VCHAR (Y+l, X, 130) 

1820  CALL  VCHAR (Y+1,X, 32) 

1830  GOTO  1870 
1840  CALL  VCHAR (Y+l, X, 130,2) 

1850  CALL  VCHAR (Y+1,X, 32) 

1860  CALL  VCHAR (Y+2,X, 118) 

1870  CALL  HCHAR (11,3,32,29) 

1880  SHD=0 

1890  CALL  SOUND (-800, -7,0) 

1900  FOR  DELAY=1  TO  200 
1910  NEXT  DELAY 
1920  IF  (Y+l) =22  THEN  3640 
1930  GOTO  1970 

1940  CALL  SOUND (-300, -7,0) 

1950  CALL  VCHAR (Y+l, X, 130) 

1960  NEXT  Y  £ 

1970  NEXT  F  qJ 

1980  M=0  _ 

1990  FOR  X=5  TO  28  g 

2000  CALL  SOUND (-500, 250, 30, 500, 30, 1000, 
2010  FOR  T=133  TO  138  STEP  5 
2020  CALL  VCHAR (X-4,X,T) 

2030  NEXT  T 

2040  MY=X-4 
2050  CALL  KEY (0, K, S) 

2060  CQDE=3 
2070  IF  S=0  THEN  2100 
2080  IF  K=49  THEN  2090  ELSE  2100 
2090  GOTO  2410 
2100  CALL  VCHAR (X-4,X, 32) 

2110  CALL  GCHAR (X-3,X+1,D) 

2120  IF  D<96  THEN  2330 
2130  IF  D>98  THEN  2310 
2140  DEAD=DEAD+100 
2150  GOSUB  4200 
2160  IF  D=97  THEN  2180 
2170  GOTO  2210 
2180  Y=X-3 
2190  Z=X+1 

2200  IF  ( (Z=23) * (Y=22) )+( ( (Z=24)+(Z=25) )# 
2210  CALL  VCHAR (X-3,X+1, 130) 

2220  CALL  VCHAR ( X-3, X+l , 1 19) 

2230  GOTO  2260 

2240  CALL  VCHAR (Y, Z , 130) 

2250  CALL  VCHAR (Y, Z, 98) 

2260  CALL  SOUND (-800, -7, 0) 

2270  FOR  DELAY=1  TO  200 

2280  NEXT  DELAY 

2290  IF  (X-3) =23  THEN  3640 

2300  GOTO  2340 

2310  CALL  SOUND (-300, -7,0) 

2320  CALL  VCHAR ( X-3, X+l , 130) 

2330  NEXT  X 
2340  C=10*RND 
2350  M=Q 
2360  MET=MET+1 

2370  IF  MET>=METEQR  THEN  3420 

2380  IF  C<1  THEN  1100 

2390  IF  C<6  THEN  1470 

2400  IF  C<=10  THEN  1990 

2410  IF  M=1  THEN  2420  ELSE  2430 

2420  QN  CODE  GOTO  1210,1710,2100 

2430  FOR  L=1  TO  13  STEP  2 

2440  CALL  SOUND (-1000, 10000, L, 5000, 5+L, -6 

2450  CALL  VCHAR ( 15-L, 4+L, 120) 


5+L) 


,(  (Y<23)#(Y>17)  )  )THEN  2240  : 


2460  CALL  GCHAR ( 1 4-L , 5+L , Q ) 

2470  CALL  GCHAR < 1 4-L, 4+L, R) 

2480  CALL  VCHAR < 15-L, 4+L, 32) 

2490  IF  Q>127  THEN  2590 

2500  IF  R>127  THEN  2590 

2510  IF  (15-LXMY  THEN  2520  ELSE  2540 

2520  TEST=1 

2530  GOTO  2590 

2540  IF  L=13  THEN  2590 

2550  NEXT  L 

2560  M=M+1 

2570  TEST=0 

2580  ON  CODE  GOTO  1210,1710,2100 
2590  CALL  SOUND (-500, -6, 0) 

2600  CALL  HCHAR (1 4-L, 4+L, 130,2) 

2610  CALL  HCHAR ( 14-L, 4+L, 32, 2) 

2620  IF  TEST=1  THEN  2560 
2630  IF  L=13  THEN  2560 
2640  M=0 
2650  HITS=HITS+1 
2660  GQSUB  4090 

2670  QN  CODE  GOTO  1470,1970,2340 
2680  IF  M=1  THEN  2690  ELSE  2700 
2690  ON  CODE  GOTO  1210,1710,2100 
2700  FOR  L-13  TO  1  STEP  -2 
2710  CALL 
2720  CALL  VCHAR ( 1+L, 16+L, 121 ) 

2730  CALL  GCHAR (L, 1 5+L, Q) 

2740  CALL  GCHAR (L, 16+L, R) 

2750  CALL  VCHAR ( 1+L, ló+L, 32) 

2760  IF  Q>127  THEN  2860 

2770  IF  R>127  THEN  2860 

2780  IF  (1+LXMY  THEN  2790  ELSE  2810 

2790  TEST=1 

$800  GOTO  2860 

2810  IF  L=1  THEN  2860 

2820  NEXT  L 

2830  M=M+1 

2840  TEST=0 

2850  ON  CODE  GOTO  1210,1710,2100 
2860  CALL  SOUND (-500, -6, 0) 

2870  CALL  HCHAR (L, 1 5+L, 130, 2) 

2880  CALL  HCHAR (L, 1 5+L, 32, 2) 

2890  IF  TEST=1  THEN  2830 


3570  IF  K=B4  THEN  3980 

3580  IF  K<83  THEN  3540 

3590  IF  K>84  THEN  3540 

3600  FOR  S=0  TO  30  STEP  2 

3610  CALL  SOUND (10, 110*(S+1) ,S) 

3620  NEXT  S 

3630  GOTO  3540 

3640  FOR  R=1  TO  10 

3650  CALL  SOUND (100, 200, 0,-1, 10) 

3660  CALL  SOUND (100, 400, 0,-1, 10) 

3670  NEXT  R 

3680  CALL  SOUND (4000, -7,0) 

3690  CALL  SCREEN(5) 

CALL  COLOR (9, 2, 2) 

FOR  DELAY» 1  TQ  90 
NEXT  DELAY 
FOR  X=7  TO  10 
IF  X=S  THEN  3800 
CALL  COLOR (9, X, X) 

CALL  COLOR <11,X,X) 

CALL  COLOR ( 10, X,X) 

FOR  DELAY=1  TO  90 
NEXT  DELAY 
3800  NEXT  X 

3810  CALL  COLOR (8, 16, 16) 

.  3820  CALL  COLOR (9, 16, 16) 

3830  CALL  COLOR ( 1 1 , 16, 16) 

3840  CALL  COLOR (10, 16, 16) 

3850  FOR  DELAY=1  TO  90 
3860  NEXT  DELAY 
3870  CALL  SCREEN(16) 

3880  CALL  COLOR ( 1 , 16, 16) 

3890  FOR  T=0  TO  30  STEP  2 
,  3900  CALL  SOUND (-500, -7, T) 
j  391Q  NEXT  T 
I  3930  CALL  CLEAR 
73930  CALL  COLOR (8, 2, 16) 

;  3940  CAU  COLOR  (3, 2, 16) 

;  3950  CALE  COLOR (4, 2, 16) 


3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 

SOUND (-1000, 10000, 13-L,5000, 18-L,-6, 18-L)  3780 

3790 


2900  IF  L=1  THEN  2830 
2910  HITS=HITS+1 
2920  GOSUB  4090 
2930  M=0 
2940  MET=MET+1 
2950  IF  MET>*METEQR  THEN  3420 
2960  QN  CODE  GOTO  1470,1970,2340 
2970  IF  (TS=10) * (SHD=0) THEN  2980  ELSE  2990 


DI  NEW  YORK  PERCQLPA  TUA  NON  ESISTE  PIU' 


3960  PRINT  "LA  CITTA' 

3970  GOTO  3490 

3980  FOR  S=0  TQ  30  STEP  2 

3998  CALL  SQUND ( -50 , 230- ( 4*S ) , 30-S , 2300- <  40*S ) , S ) 


y/éJat»  — 2 


2980  CALL  SOUND (-500, 1000, 0) 
2990  IF  TS>*1 1  THEN  1710 


3000  CALL  HCHAR (11, 3, 122,29) 

3010  SHD=SHD+1 

3020  I F  SHD<  4  THEN  1710 


3030  CALL  HCHAR (11, 3, 32, 29) 

3040  SHD-0 
3050  GOTO  1710 

3060  PRINT  "SITUAZIONE - SIETE  AL  CONTROLLO  DEL  SISTEMA  DIFENSIVODELLA  CITTA 

’  DI  NEW  YORK." 

3070  PRINT  ;  : "MISSIONE - DOVETE  DIFENDERLA  DA  UNA  PIOGGIA  DI  METEORE" 

3080  PRINT  CONTROLLI -  1)  CANNONE  SINISTRO  0)  CANN 

ONE  DESTRO" 


3081  PRINT  "  2)  RAGGIO  LASER" 

3090  FQR  DELAY=1  TD  3000 
3100  NEXT  DELAY 
3105  CALL  CLEAR 
3110  GOSUB  4050 

3120  PRINT  "  ARMI  - 2  RAMPE  DI  MI SS ILI CONTROLLANO 

IL  CIELO  " 

3130  PRINT  "  1  EMETTITORE  DI  RAGGI LASER  DIFENDONO  A  QMBRELLQLA  CITTA’" 

3150  PRINT  LIMITI - PUÒ’  ESSERE  LANCI ATOSOLTANTO 

UN  MISSILE  CONTROLA  METEORITE" 

3160  PRINT  "  NON  TUTTE  LE  VOLTE  ILLASER  FUNZIONA  PERCHE’  V I ENED ANNEGG IATO 

DALLE  METEORITI." 

3161  PRINT  :  : "ENTER  per  continuare" 

3162  INPUT  AA* 

3163  CALL  CLEAR 

3170  PRINT  "IL  VOSTRO  MISSILE  NON  TLIT=TE  LE  VOLTE  VA  A  DISTRUGGERELA  METEORITE 


3180  PRINT  "IL  RAGGIO  LASER  DEV’ESSERE IMPIEGATO  CON  SAGGEZZA" 

3190  PRINT  “SE  LA  CITTA’  VIENE  CQL.PITAIN  PROFONDITÀ’  DALLE  METEORELA  CENTRALE 
NUCLEARE  ESPLODE" 

3200  RETURN 
3210  GOSUB  4050 


3220  PRINT  :: "LIVELLI  GIOCO 

3221  PRINT  :"  1)  STORMO  LENTO" 

3222  PRINT  2)  STORMO  MEDIO" 

3223  PRINT  : "  3)  STORMO  VELOCE" 

3230  GOSUB  4050 


4CH?0  NEXT  S 

4010  FOR  S=0  TO  30  STEP  5 
4020  CALL  SQUND (200.1  IO. S) 
4030  NEXT  S 


3240  CALL  KEY(0,K,S) 

3250  IF  S=0  THEN  3310 

3260  IF  K=49  THEN  3350 

3270  IF  K=50  THEN  3370 

3280  IF  K=51  THEN  3390 

3290  IF  K<49  THEN  3240 

3300  IF  K>51  THEN  3240 

3310  FOR  S=0  TO  30  STEP  2 

3320  CALL  SOUND (10,1 10* (S+l ) ,  S) 

3330  NEXT  S 
3340  GOTO  3240 
3350  METEQR=50 
3360  GOTO  3400 
3370  METEQR=100 
3380  GOTO  3400 
3390  METEQR=150 
3400  CALL  CLEAR 
3410  RETURN 

3420  PRINT  "LA  CITTA’  E  SALVA!!" 

3430  CALL  COLOR (8, 2, 1) 

3440  CALL  COLOR (3, 2,1) 

3450  CALL  COLOR (4, 2,1) 

3460  PRINT 

3470  PRINT  "POPOLAZIONE  UCCISA  !  I "5  DEAD 
34S0  PRINT 


4040  END 

4050  FQR  A=0  TO  30  STEP  5 
4060  CALL  SOUND (-99, 698, A, 1924, A) 
4070  NEXT  A 
4080  RETURN 

4090  CALL  GCHAR(24,27,S) 

4100  IF  S=57  THEN  4130 
4110  CALL  HCHAR(24,27,S+1) 

4120  RETURN 

4130  CALL  GCHAR(24,26,S) 

4140  CALL  HCHAR (24, 27, 48) 

4150  CALL  HCHAR (24, 26, S+l) 

4160  IF  S=57  THEN  4180 
4170  RETURN 

4180  CALL  HCHAR (24, 25,49) 

4190  RETURN 

4200  CALL  GCHAR (24, 7, DEAD) 

4210  IF  DEAD=57  THEN  4240 
4220  CALL  HCHAR (24, 7,0EAD+l> 

4230  RETURN 

4240  CALL  GCHAR (24, 6, DEAD) 

4250  CALL  HCHAR (24, 7, 48) 

4260  CALL  HCHAR  (24, 6,  DEAD*  1) 

4270  RETURN 


3490  PRINT  "METEORE  INTERCETTATE ì  ! " 5 HITS 
3500  PRINT 


3510  PRINT  "PERCENTUALE  COLPITE  !  i  ";  HITS*100/METEQR)  "7." 

3520  PRINT 

3530  PRINT  "PREMI  (S)  PER  GIOCARE  PREMI  (T)  PER  FINIRE" 

3540  CALL  KEY(0,K,S) 

3550  IF  S-0  THEN  3600 


3560  IF  K=83  THEN  40 


1000  CALL  CL.EAR 

1100  REM  ATTENZIONE  ALLE  VARIABILI  NON  CAMBIARLE 
1200  CALL  CL.EAR 

1300  FRI NT  FRANCOMPUTER  CLUB" 

1400  FRI NT  ::: 

1500  FRI NT  "NOMI  IN  ORDINE  ALFABETICO"::::: 

1600  FRI  NT 
1700  FRI NT  :;::: 
ìaOO  FOR  WAIT=0  TO  800 
1900  NEXT  WAIT 

2000  REM  NOMI  IN  ORDINE  DI  ALFABETO 
2100  CALL  CL.EAR 

2200  FRI NT  "PER  TERMINARE  PREMI  ZERO" ::::: "QUANTI  NUMI  VUOI  ?"::::: 

2300  INPUT  "NUM  "sN 
2400  IF  N=0  THEN  5900 

2500  REM  IL  VALORE  DI  DIM  (>  VA  STABILITO  PRIMA  COME  MAX. 

2600  DIM  A* (100) 

2700  REM  CON  10  NOMI  OCCUPA  K  1,1150;  CON  100  NOMI  K  1,300; CON  1000  NOMI  K  3,35 
0 

2800  REM  INIZIA  IL  CICLO  DEI  NOMI  DA  ORDINARE 
2900  FOR  1=1  TO  N 
3000  FRI NT  "NOME  "; (I) ; 

3100  INPUT  A$ ( I ) 

3200  NEXT  I 
3300  M=N 
3400  T=M/2 
3500  M=INT (T) 

3600  IF  M=0  THEN  5000 
3700  K=N-M 
3800  J=ì 
3900  I=J 
4000  L=I+M 

4100  IF  A$ ( I ) <=A$ (L) THEN  4700 
4200  T$=A$(I) 

4300  A$ ( I ) =A$ (L) 

4400  A$(L)=T$ 

4500  I=I-N 

4600  IF  I>=1  THEN  4000 
4700  J=J+1 

4800  IF  J >K  THEN  3400 
4900  GOTO  3900 
5000  CALL  CLEAR 

5100  REM  CICLO  DI  STAMPA  CON  IL  CONTROLLO  FER  PASSARE  ALLO  SCHERMO  SUCCESSIVO  D 

ORO  AVER  SCRITTO  20  NOMI  IN  ORDINE 

5200  FOR  1=1  TO  N 

5300  IF  < 1/21 ><>INT( 1/21) THEN  5700 

5400  PRINT  : "PER  CONT.  PREMI  UN  TASTO/  ENTER" 

5500  INPUT  W$ 

5600  CALL  CLEAR 
5700  PRINT  A$ ( I ) 

5S00  NEXT  I 
5900  INPUT  AA$ 

6000  GOTO  2100 


ÌOO  [fili  CLEAR 

150  PRINT  ‘  1  I  2  li  2  1  I" 

200  PRINT  '  ■ 

250  PRINT  1  2  TOTOCALCIO  2‘ 

300  PRINT  ‘  ' 

350  PRINT  ■  Il  2  11  2  I  1' 

<00  FOR  1=1  TO  13 
450  PRINT  '  ' 

500  CALI  SOUND (130,392, 15,202, 13,659, 13) 

550  PRINT  *  ‘ 

600  NEIT  I 

610  INPOT  "VUOI  LE  ISTRUZIONI  PREMI <Y)<": li 
620  IF  IÌ=T  THEN  6666 
650  DIN  S$(13),N(13) 

700  CALL  CLEAR 
750  CALL  SCREENI12) 

800  FOR  1=1  TO  13 
350  PRINT  "PARTITA  N."il 
900  INPUT  Sid) 

950  GOSUS  4750 
1000  NII)=LENt5t(l)) 

1050  NEIT  I 
1100  CALL  CLEAR 
1150  FOR  T=1  TO  300 
1200  NEIT  T 

1250  INPUT  "DOPPIE  INSERITE  ?  ":D 
1300  PRINT 
1350  PRINT 

1400  INPUT  "TRIPLE  INSERITE  ?  ":T 
1450  CALL  CLEAR 
1500  PRINT  "LE  COLONNE  SONO"! (2AD)*(3AT) 

1550  PRINT 
1600  PRINT 
1650  PRINT 

1700  PRINT  "IL. COSTO  E'  DI  LIRE“;(!2*DI»(3AT))*300 
1750  PRINT 
1800  PRINT 
1350  PRINT 

1900  PRINT  "LO  SVILUPPO  ?<PREHI  S>" 

1950  CALL  KEY(0,K,S) 

2000  IF  S=0  THEN  1950 
2050  IF  11083  THEN  700 
2100  CALL  CLEAR 
2150  FOR  11=1  TO  N(l) 

2200  CÌ=SEGÌ(Si(ll,Il,l) 

2250  FOR  12=1  TO  N(2) 

2300  Ci=SE6Ì (Ci, 1 , 1 ) ASEGi (Si (21,12,1) 

2350  FOR  13=1  TO  NI3) 

2400  CÌ=SEGÌ(CÌ,l,2)ASE6ilSÌ(3),I3,ll 
2450  FOR  14=1  TO  N<4) 

2500  CÌ=SE6Ì(CÌ,l,3)iSEGÌ(Si(4),I4,l) 

2550  FOR  15=1  TO  NI5) 

2600  C$=SE6$ (Ct, 1,4) 4SEGÌ (Si (5) , 15, Il 
2650  FOR  16=1  TO  NI6) 

2700  CÌ=SESÌ (Ct, 1 , 51 ASEGi (Si (6 ) , 16, 1 I 
2750  FOR  17=1  TO  NI7) 

2300  CÌ=SEGÌ(CÌ,l,6!tSEGÌ(SÌ(7),I7,ll 
2350  FOR  18=1  TO  N(8) 

2900  Ct=S£Gt (Ct,  1 , 7) ItSEGt (St (8) ,  18, 1  ) 

2950  FOR  19=1  TO  NI9) 

3000  Ct=SEGt (Ct,  1,3)  iiSEGt  (St (91 , 19, 1 } 

3050  FAR  110=1  TO  NUO) 

3100  Ci=SEbl (Ct, 1 ,9)iSEGt (St(10) ,110,1) 

3150  FOR  111=1  TO  N(ll) 


3200  CÌ=SESÌ (Ct, 1 , IO)  ÌSEGi  (Si i 1 1) , 1 1 1 , 1  ) 
3250  FOR  112=1  TO  N(!2) 

3300  C$=SEGt (Ct, 1,11) tSESt (St ( 12) , 112,1) 
3350  FOR  113=1  TO  N(13) 

3400  CÌ=SEGÌiC$,l,12)6SEGt(St( 13), 113,1) 
3450  PRINT  Ct, AH 
3500  Y=YH 
3550  A=AH 

3600  IF  Y<20  THEN  4050 
3650  PRINT 

3700  PRINT  ‘CONTINUO  ? (PREMI  S>" 

3750  CALL  KEY(0,K,S) 

3800  IF  5=0  THEN  3750 
3350  IF  K083  THEN  3750 
3900  IF  K=83  THEN  3950 
3950  CALL  CLEAR 
4000  Y=0 
4050  NEIT  113 
4100  NEIT  112 
4150  NEIT  111 
4200  NEIT  110 
i  4250  NEIT  19 

:  4300  NEIT  18 

j  4350  NEIT  17 

:  4400  NEIT  16 

|  4450  NEIT  15 

■  4500  NEIT  14 

\  4550  NEIT  13 

j  4600  NEIT  12 

]  4650  NEIT  II 

!  4700  END 

I  4750  IF  Si  (DOT  THEN  4850 

r 

i 


4300  RETURN 

4850  IF  SitUOT  THEN  4950 
4900  RETURN 

4950  IF  SÌ(I)0’2"  THEN  5050 
5000  RETURN 

5050  IF  StmO’U*  THEN  5150 
5100  RETURN 

;  5150  IF  Si(l)<>"12"  THEN  5250 
|  5200  RETURN 

I  5250  IF  SilDO’ir  THEN  5350 
|j  5300  RETURN 

il  5350  IF  St(I)0"I2‘  THEN  5450 
j  5400  RETURN 

5450  IF  Si(I!<>"21"  THEN  5550 
;|  5500  RETURN 

!  5550  IF  Si(l)0“2r  THEN  5650 
;j  5600  RETURN 

■!:  5650  IF  St(I)0“lI2"  THEN  5750 
5700  RETURN 

i:  5750  IF  Si(l)(>"121"  THEN  5850 
5800  RETURN 

|  5350  IF  Si(IK>“I12"  THEN  5950 

:  5900  RETURN 

j  5950  IF  SÌ(I)0“I21"  THEN  6050 

i  6000  RETURN 

6050  IF  SÌ(I)0"2H"  THEN  6150 
'  6100  RETURN 

6150  IF  Sili) <>"211"  THEN  6250 
6200  RETURN 

6250  CALL  SOUND (-500, -3, li 
6300  FOR  T=1  TO  400 
6350  NEIT  T 


6400  PRINT  "HAI  SBAGLIATO" 

6450  FOR  T=1  TO  800 
6500  NEIT  T 
6550  GOTO  700 
6600  END 

6650  REN  ISTRUZIONI  ALL'  USO  DEL  PRGGRAHHA 
6666  CALL  CLEAR 

6700  PRINT  ‘IL  PROGRANNA  DA  LO  SVILUPPO  DI  OGNI  SISTEMA  INTERO  E  NON  RIDOTTO  DEL 
GIOCO  DEL  TOTOCALCIO" 

6750  PRINT  "NE  SPECIFICA  IL  NUMERO  DELLE  COLONNE  ED  IL  RELATIVO  COSTO  PURCHÉ’  SI 
A  ESATTA  L'IKNISSIONE  DEI  DATI" 

6800  PRINT  "QUESTI  VALORI  NON  SONO  CONTROLLATI  DAL  PROGRANNA  HA  IL  RISULTATO  DEL 
LA  ELABORAZIONE  E’  ESATTO" 

6850  PRINT  "QUALORA  SI  SBAGLIASSE  AD  INTRODURRE  I  PRONASTICI  0  DA  1  2  X  SI  R1C0 
NINCIA  DALLA  PRIMA  PARTITA" 

6900  PRINT 

6950  PRINT  "  AUGURI  E  BUON  13  ' 

6960  FOR  1=1  TO  13000 
6970  NEIT  I 
7000  GOTO  650 


2  L.  2oooo 


Biblioteca  di  matematica 

Comprende  calcoli  in  tiene  di  Fourier,  analisi  delle  (un¬ 
zioni,  equazioni  differenziali  ordinarie,  conversioni  di 
base,  scomposizione  in  fattori  primi,  funzioni  iperboliche 
e  calcolo  simultaneo  di  equazioni. 

Disponibile  io  alandone,  f— -a 


L.  fa' Ooo 

Diti  Statistici  (Stiitistics) 

Svolge  (Imbustami  calcoli  statigjiefM>n  la  precisione  e  la 
rapidità  di  unctoputer.  Vilasfìa  più  tempo  libero  per 
analizzare  I  risuluhudppfmcarli  alla  Vostra  particolare 
situazione.  Può  an^KSsserc  utilizzato  per  analizzare  i  'dati 
del  Modulo  geptfom  daupusonali.  Include  dati  statistici 
descritti  v^lCrrelazioni,  anainàghregressione  lineare  ed ... 
altre  valutazioni  statistiche  dcdufthNj^ 

Disponibile  per  ora  in  inglese  e  tedesco. 


c  um  L.K'OOO 

Speech  Editor 

Scoprite  lo  stimolo  che  dà  la  possibilità  di  generare  la  voce 
con  il  computer  TI  99/4A.  Potete  sperimentare  ed  ascol¬ 
tare  immediatamente  parole  o  frasi  intere  con  il  vocabola¬ 
rio  incorporato  nel  sintetizzatore  Solid  State  Speech*. 
Disponibile  per  ora  solo  in  inglese. 

Breve  descrizione  in  olandes,  francese,  tedesco  ed  italiano. 
ConUfiuvlMa  richiesta;  C 


l  (MS.  L/loooo 

Libreria  d’Elettrouica 

Un  catalogo  degli  ausdi  piò  comunemente  usali  dagli 
ingegneri  elettronici  fra  cui  progettazione  filtri,  luogo  delle 
radici,  caria  di  Smith,  circuito  agganciato  niase  e  nume¬ 
rosi  altri  supporti. 

Disponìbile  in  olandese,  inglese, 


Li#  ©oo 


BASIC  Esteso 

Linguaggio  di  programmazione  compatibile  con  il  BASIC 
TI  99/4A,  con  le  seguenti  aggiunte:  righe  multidichiara- 
zioni,  dichiarazioni  1F-THEN-ELSE  (Se-allora-oppure), 
accesso  diretto  allo  schermo,  soltoprogrammi  BASIC  con 
variabili  locali,  autoavviamento  dei  programmi  su  disco, 
facile  controllo  di  fino  a  28  sprite  con  concatenamento 
programmi  BASIC,  fusione  codici,  programmi  protetti, 
dichiarazioni  ON  ERKOK  (Errore  in  allo)  e  funzioni  Logi¬ 
che  di  Boole  (AND,  OR,  NOT 1  E,  0,  NO  -  ecc.). 
Disponibile  per  ora  solo  in  inglese. 

Breve  descrizione  in  olandese,  francese,  tedesco  ed 
itgliuo.  ->£  iy„; 


Imparate  da  soli  il  BASIC  Esteso 

Imparate  ad  usare  il  Basic  Esteso  con  questo  programma 
d’iiuegnamenlo.  Un  processo  sequenziale  Vi  aiuta  ad  ap¬ 
prendere  che  cosa  si  può  ottenere  con  questo  linguaggio  di 
alto  livello.  11  programma  include  sette  lezioni.  +  \  (rio  co 

liJ  \<fl Urtalo  h  L.20‘000 


Fatturazione  l.lOooo 

Conserva  tutte  le  informazioni  sulla  clientela,  aggiornate  e 
precise,  in  un  unico  sistema  di  facile  uso.  Voci  quali  indi¬ 
rizzo  cliente,  sconto  applicabile,  imposte  e  molte  altre  in¬ 
formazioni  di  fatturazione  si  controllano  ed  aggiornano 
facilmente,  li  complesso  comprende  sette  programmi  che 
Vi  aiutano  a  tenere  registri  aggiornati  di  fatture.  A  tale 
scopo  si  richiede  il  modulo  dati  statistici  o  quello 
vie  personale.  _ 


Inventario  l.  K)  Ooo 

Permette  di  aggiornare  l’inventano  e  di  seguirne  i  movi¬ 
menti.  Potete  intraprendere  una  valutazione  delie  scorte  in 
base  al  costo,  al  margine  di  utile  o  al  prezzo.  I  moduli  di 
archivio  personale  e  dati  statici  Solid  State  Cartridge  vj 
aggiungono  le  possibilità  di  classificazione  e  valutazione 
statistica.  Avrete  bisogno  di  uno  di  questi  due  moduli. 


1  CftV>iX<\L  L.  2o‘ùÙo 

Calcolo  delle  stru  tture  §g§f| 

Questo  programma  offre  ad  ingegneri  un  sussidio  compu¬ 
terizzato  per  valutazioni  e  calcoli  complessi.  Si  dispone  di: 
momonto  d’inerzia,  carico  dinamico/grado  unico  di 
libertà,  analisi  delle  sollecitazioni  In  travi  di  calcestruzzo, 
ripartizione  travature  reticolari  e  a  quattro  campate. 


I  il !  ‘j*]  ’TIIlI]  ‘M*!  ’V  1  SS  Ha 


1  UVrie/ftft  L.  10'  OOO 

Simulazione  di  mercato 

In  essa  due  giocatori  si  trovano  in  concorrenza  d’affari. 
Scegliete  quandi  pubblicità  fare,  quante  unità  volete  pro¬ 
durre,  ecc.  ed  attendete  i  risultati.  Gli  scioperi  e  i  muta¬ 
menti  economici  rendono  questo  gioco  istruttivo  molto 
realistico.  Ka Lindo 


2  X4L  To’  ooo 

Aiuto  alia  programmazione  I 

Mette  s  disposizione  dei  programmatori  già  pratici  degli 
ausdi  per  potenziare  il  linguaggio  Basic  TI.  Comprende  le 
■equenti  possibilità:  «CATALOGARE  DISCHI»,  DIS¬ 
PLAY  Af»,  «ACCEPT  AT»  stampa  sullo  schermo  lettere 
minuscole  serie  di  routine  ASCII  caratteri  definiti 
dall’utente. 

Disponibile  per  ora  solo  in  inglese. 


Bank  per  principianti 

Introduce  il  nuovo  utente  ai  concetti  della  programma¬ 
zione.  Include  otto  lezioni  separate  che  complementano  la 
sezione  «Elementi  di  Programmazione»  del  Manuale 
d’Uso.  Include  anche  domande  con  scelta  multipla  di  ris¬ 
poste  per  assicurare  che  l’utente  aff  erri  i  concetti  deila 
programma?  iono. 

li  L.  2o‘ooo 


Modulo  Solid  State  Cartridge 


Scacchi  ^  Ooo  y" 

Un  programma  pe  troso  ma  dì  fatile  uso  che  Vi  permette 
di  seguire  tutte  le  mo^e,  cheMR  di  aiuto  quando  ne  avete 
bisogno  e  che  può  fungeaL^svalente  avversario.  Potete 
scegliere  il  grado  di  diftóHk  e  il  computer  può  persino 
conservare  una  partm^er  rigiocarla  in  un  secondo  tempo. 
Mosso  a  punto  coa^aiuto  del  maestro  internazionale 
David  Levy.  Intasato  per  i  giocatori  di  scacchi  di  tutte  le  età. 
Disponibile  in  olandese,  inglese,  mneese,  tedesco  e 
italiano. 


Dischetto 


Divisione  t.2o'0oo 

Cartoni  animati,  colori  e  grafica  si  combinano  per  inseg¬ 
nare  il  significato  e  i  dati  fondamentali  della  divisione. 
Presentazione  dei  concetti  e  realizzazione  pratica  degli 
stessi.  Di  grande  ausilio  per  i  deboli  in  questa  operazione. 
Messa  a  punto  con  la  Scott,  Foresman  and  Company.  Per 
ragazzi  dai  6  ai  10  anni 


L.^'ooo 

Musicista  -  Composizioni  musicali 

Programma  per  composizioni  musicali  che  permette 
anche  al  profano  di  creare  della  musica  con  computer  dis¬ 
ponendo  semplicemente  le  note  su  un  pentagramma  musi¬ 
cale  elettronico.  Un’introduzione  meravigliosa  alla  musica 
in  casa  sia  per  ragazzi  che  per  adulti.  Programma  di  facile 
uso  che  permette  di  comporre  i  propri  pezzi.  Si  raccomanda 
l’uso  di  un  sistema  memoria  dati. 


Munch  Man  L ,  Wooo 


Manovrate  il  Munch  Man  attraverso  un  dedalo  e  cercale 
di  raggiungere  uno  stimolatore  prima  di  venire  divorati  dai 
quattro  Hoonos  che  stanno  incalzando  il  Munch  Man. 
Segnate  punti  collegando  i  passaggi  con  un  catena  continua 
oppure  catturando  gli  astuti  Hoonos  mentre  il  Munch  Man 
si  ricarica  con  10  stimolatori. 


Moltiplicazione  1 


L .  lo'  ooo 


Si  usano  colori,  grafica  e  suono  per  l’insegnamento  teorico 
e  per  la  pratica.  11  modulo  spiega  il  significato  della  molti¬ 
plicazione  e  presenta  i  dati  fondamentali  di  questa  opera¬ 
zione.  Se  l’utente  ottiene  scarsi  risultati  nelle  sessioni  pra¬ 
tiche,  riceve  automaticamente  aiuto.  Messo  a  punto  con  la 
Scott,  Foresman  and  Company.  Per  ragazzi  da  8  ad  11  anni. 
Disponibile  per  ora  in  inglese. 


Yahtzee  L.  7.0  ooo 


Emozionante  gioco  di  dadi  che  alla  strategia  abbina  ele¬ 
menti  di  fortuna.  I  giocatori  accumulano  punti  se  escono 
certe  combinazioni.  Perfezionalo  dalla  Milton  Bradley 
Company.  Ore  di  divertimento  assicurate.  Indicato  dagli  8 
anni  in  su. 

Disponibile  in  olandese,  inglese,  francese,  tedesco  ed 
italiano. 


L.  2o‘ooo 

Filetto  (Connect  Four) 

Un  impegnativo  gioco  di  strategia  verticale.  1  giocatori  de¬ 
vono  riuscire  a  collocare  quattro  contrassegni  consecutivi 
in  senso  verticale,  orizzontale  o  diagonale.  Perfezionato 
dalla  Milton  Bradley  Company.  Indicato  dai  10  anni  in  su. 
Disponibile  ora  in  olandese,  inglese,  francese,  tedesco, 
italiano  e  svedese. 


L.  \9)  OOO 

Prime  letture  (Early  Reading) 

Grafica  a  colori  divertente  e  voce  sintetizzala.  Introdu¬ 
zione  e  potenziamento  dell’abilità  nella  lettura.  Una  grande 
esperienza  in  fatto  di  apprendimento  e  un  grande  diverti¬ 
mento  per  i  non  iniziati  alla  lettura.  Messa  a  punto  dalla  TI 
con  il  personale  didattico  della  Scott,  Foresman  and 
Company.  Indicata  anche  per  gli  studenti  principianti  della 
lingua  inglese. 

Disponibile  attualmente  solo  in  inglese. 


L.  2)^'ooo 


EducazlonN^sica  (Phvgical  Fitness) 

Vi  aiuta  a  programmare  (e j^on  lasciar  perdere)  un  pro¬ 
gramma  di  esercizi  fishùjffpostalo  appositamente  per  Voi. 
Si  basa  sulle  direttric^ftnate  dal  Consiglio 
sull’Educazione  Fùljca  delHayemo  Americano.  Indicato 
dai  13  anni  in  s^ 

Disponibile  per  ora  solo  in  inglese  e  tedesco. 


Otello  L.  >10  000 


L .  2o'000 

Addizione/So  (trazione  2 


Questo  antico  gioco  di  strategia  impegna  a  fondo  anche  i 
giocatori  più  smaliziati.  Un  impegnativo  gioco  da  scac¬ 
chiera  che  s’impara  in  pochi  minuti  ma  richiede  una  vita 
per  dominarlo.  Indicato  per  gli  strateghi  di  tutte  le  età. 


Numero  magico  L.  22  ooo 

Uno  stimolante  programma  di  istruzione  in  matematica. 
Arricchisce  le  cognizioni  che  si  hanno  e  presenta  problemi 
di  mathematica  da  risolvere  con  belle  presentazioni  a 
colorì  e  colonna  sonora.  Ricalca  la  tradizione  degli  affer- 
matissimi  Little  Professor*  e  Dataman*  della  Texas  Instru¬ 
ments.  Validissimo  supporto  e  fonte  di  divertimento  per 
ragazzi  dai  6  anni  in  su. 

Disponibile  in  olandese,  inglese,  francese,  tedesco, 
italiano  e  svedese. 


Secondo  della  serie  di  programmi  didattici  sull’addizione 
la  sottrazione,  che  presenta  problemi  e  tecniche  più  diffi¬ 
cili  rispetto  all’Addizione/Sottrazione  1.  Messo  a  punto 
con  la  Scott,  Foresman  and  Company.  Indicato  per  i  prin¬ 
cipianti. 

Disponibile  in  inglese.  _ 


L.  2o'ooo 

Addizione/Sottrazione  1 


Si  tratta  del  modulo  iniziale  di  una  serie  messa  a  punto  con 
la  Scott,  Foresman  and  Company,  fra  le  più  importanti 
case  editrici  di  libri  di  testo.  Insegna  i  primi  elementi  di 
aritmetica  e  dà  compiti  di  ripetizione.  Indicato  per  i  princi¬ 
pianti. 

Disponibile  in  inglese. 

Dal  primo  trimestre  1983  anche  in  olandese,  francese, 
tedesco,  italiano  e  svedese. _ _ 


L .  AO'OOO 

Gestione  bilancio  familiare 

Facilita  l’impostazione  del  bilancio,  tiene  conto  delle  ent¬ 
rate  e  le  uscite,  ' 


•5(5' 


Il  Serpente  (Hustie)  . 

Indirizzate  un  oggetto  a  forma  di  serpe  contro  gli  obiettivi 
cercando  di  evitare  l’avversario,  il  bordo  dello  schermo... 
persino  Voi  stesso!  Questo  gioco  a  ritmo  incalzante  per 
uno  o  due  giocatori  richiede  prontezza  di  riflessi  e  coordi¬ 
namento  fra  occhio  e  mano,  indicato  dai  10  anni  in  su. 


PUBBLICAZIONI  E  MATERIALE  DISPONIBILE  NEL  CLUB 

RIVISTA  99er  ,  Americana  (  mese  di  novembre  )  lire  11.000 

TI  99  LEARNING  di  Towsend  (  in  inglese  )  160  pan: . 16.000 

IMPARIAMO  A  PROGRAMMARE  IN  TI  BASIC-  Oltre  90  esercizi 
risolti  e  proposti.  Introduzione  ai  giochi  con  il 
TI  99/4A  ,  Oltre  ben  10  programmi  completi,  grafica, 
colore, suono.  Tutte  le  funzioni  del  TI  BASIC  arr ic= 
chite  con  molti  esempi . ( in. italiano) . 16.000 
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MANUALE  IN  ASSEMBLER  in  inglese  . 30.000 

E,t<fc*JSkit  fiftuc  i kI  tfAiindo  .  .  . . l'àoo.o 

BASIC  IN  COMPUTER  ;  8  lezioni  su  cassetta  (4)  in  italiano 
è  il  computer  che  vi  insegna  il  computer.  Un  corso  inte= 
rattivo  per  procedere  e  capire  speditamente . 20.000 

L'EXTENDIC  BASIC  ;  7  Lezioni  su  4  cassette,  più  un  gioco 

realizzato  con  gli  Sprite .velocissimo.  Un  corso  compie^ 
to  per  capire  questo  potente  linguaggio . 20.000 

\  Myjft.LtJ.li.  t  <FI  1 1  ft  iJ  Q  :  tOM,  U  PlVSEMkf.ft  00  >1  LA  MUl  I  MLHQfUMOoQo 

ESTRATTI  VARl~cJaIle  varie  riviste.  Tri  fotocopia  chiedeteci 
ciò  che  vi  serve.  Ci  pagate  solo  il  costo  delle  fotoco= 
pie*  Cioè  lire  100  caduna. 

Disponibili  articoli  su  la  Consolle  in  generale,  sui  FILE, 
sull ' assebler ,  sulla  Minimemory,  sul  sintetizzatore  vocale- 

E'  DISPONIBILE  DA  ALCUNI  GIORNI  IL  MANUALE  DEL  TMS  9900  CHE 
’  TUTTI  MI  RICHIEDONO.  BREVE  DESCRIZIONE  IN  ITALIANO  SU  8 

PAGINE  CON  SCHEMI  ETC.  E  ALTRE  25  PAGINE  IN  INGLESE  CON  TUT= 

T0  IL  RESTO.  ALLEGATA  ANCHE  SU  10  PAGINE  LA  REFERENZE  CARD 

DELL 1 E DIT0R  ASSEMBLER.  IL  TUTTO  COSTA  8.000  LIRE. 
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N .  in  Basic 

Programma  in  EX.  B. 
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